How to change a directory in perl?

Question

I'm not able to change the dir in perl.

#!/usr/bin/perl
use strict;

my $dir=`date +%d%b%Y`;
#the output of $dir is 13Feb2014 that directory is already inside "/mnt/Recordings/Inbound/Kinrep/" 

my $path = "/mnt/Recordings/Inbound/Kinrep/$dir";        
chdir($path) or die "Cant chdir to $path $!";

whenever i'm executing my program i'm not able to change the directory i got following error.

Cant chdir to /mnt/Recordings/Inbound/Kinrep/13Feb2014
 No such file or directory at Ftp_transfer_197.pl line 17.

Does the directory exist before? If not, `system "mkdir $path";` should help you out. — DeVadder, Feb 13 '14 at 13:29

score 6 · Accepted Answer · edited Feb 13 '14 at 13:33

6

chomp $dir; will remove the newline that the command in the backticks appended to its output. It's very rare that a directory name actually contains a newline, although it's possible on many file systems.

edited Feb 13 '14 at 13:33

Matthew Walton

9,809
3
27
36

answered Feb 13 '14 at 13:30

amon

57,091
2
89
149

score 1 · Answer 2 · answered Feb 13 '14 at 15:24

You have a solution, which you have accepted. But I wanted to point out that this is a side-effect of you using an external program to do something that you can do perfectly well within Perl. There are many ways to do what you want. The simplest is probably to use the (standard) Time::Piece module.

use Time::Piece;

$dir = localtime->strftime('%d%b%Y');

How to change a directory in perl?

2 Answers2