Problems with a PERL script.

11 May 2005

      Hello all!
I have a script that has started to die on me since installing 9.3

i get 
rikjoh@sparhawk:~> perl bin/transfer_cam.pl
No such file or directory

The code is a s follows:

#!/usr/bin/perl
use strict;
use warnings;

my $dst_dir = "/mnt/network/linux/hdc/Pictures";

my $src_dir;
for(1..10){
   {
      open my $in,"/proc/mounts" or die "$!\n";
      $/=undef;
      ($src_dir) = <$in>=~/ (\S*usb-\S*)/;
      close $in;
   }
   last if defined $src_dir;
   sleep 2;
}

die "Could not calculate \$src_dir" unless defined $src_dir;
my @time = localtime(time);

my( $year ) = $time[5]=~/(\d\d)$/;
my $month = $time[4]+1;
$month="0$month" if $month<10;
my $day = $time[3];
$day="0$day" if $day<10;

$dst_dir.="/$year/$month/$year$month$day";

my $xx="01";
while( -d "$dst_dir.$xx" ){
   $xx++;
}
$dst_dir.=".$xx";

mkdir $dst_dir or die "$!\n";
`cp -r $src_dir/dcim/100pentx/* $dst_dir/`;

Can anyone help me? Where and why is it barfing?
-- 

         /Rikard

" Sharing knowledge is the most fundamental act of friendship. 
Because it is a way you can give something without loosing something." 
		-R. Stallman 

---------------------------------------------------------------
Rikard Johnels          email   : rikjoh@norweb.se
                        Mob     : +46 763 19 76 25
                        PGP     : 0x461CEE56
---------------------------------------------------------------