/ Published in: Perl
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
#!/usr/bin/perl -w $CMP="/usr/bin/cmp"; $dir0=$ARGV[0]; $dir1=$ARGV[1]; @files0=`find $dir0 -type f`; $count=0; foreach $file0 (@files0){ $file1=$file0; $file1=$dir1.$file1; if($count>10){ $count=0; }else{ $count++; } }