#!/usr/bin/perl use strict; mkdir "UTtrip"; my $count = 1; for (1..4) { my $dir = "trip" . $_; opendir DIR , $dir; my @files = sort readdir DIR; for ( @files ) { if ($_ =~ /\.jpg/i) { print qq` copying $dir/$_ to ./trip/$count.jpg\n`; rename ($dir . "/" . $_, "./UTtrip/" . $count . ".jpg" ) || di +e $!; $count++; } } }
In reply to Re^2: directory access failure
by Anonymous Monk
in thread directory access failure
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |