Re: problem printf

Jenda P.S.: What the heck is find.pl? You should be using File::Find! thanks for your help -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: problem printf

deny wrote: Try to add this lines somewhere the top of the file: use strict; use warnings; and report the errors, if any. Global symbol "$md5" requires explicit package name at ./checksum.pl line 11. Global symbol "@dirs" requires explicit package name at ./checksum.pl line 12. Global symbol "$d

Re: problem printf

Try to add this lines somewhere the top of the file: use strict; use warnings; and report the errors, if any. Global symbol "$md5" requires explicit package name at ./checksum.pl line 11. Global symbol "@dirs" requires explicit package name at ./checksum.pl line 12. Global symbol "$dir" requires

Re: problem printf

Owen a écrit : On Mon, 25 Oct 2004 05:17 pm, deny wrote: foreach $name ( sort @files) { ($uid,$gid) = (stat $nane)[4,5]; stat $nane or $name? $name , error for me ,the result is the same if someone want the script for test -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional co

Re: problem printf

deny wrote: That isn't only perl code, it's incomplete, and it doesn't use 'printf'. Show us more code and explain your problem fully. thanks for your help here is the complete code #!/usr/bin/perl use warnings; use strict; use MD5; use Digest::MD5; require 'find.pl'; use File::Find; $md5 =

Re: problem printf

From: deny <[EMAIL PROTECTED]> > here is the complete code > > #!/usr/bin/perl > > use MD5; > require 'find.pl'; > > $md5 = new MD5; > @dirs = @ARGV; > > foreach $dir ( @dirs ) { find($dir); } > sub wanted { push @files, $name; } > > foreach $name ( sort @files) { > ($uid,$gid) = (stat

Re: problem printf

deny wrote: That isn't only perl code, it's incomplete, and it doesn't use 'printf'. Show us more code and explain your problem fully. thanks for your help here is the complete code #!/usr/bin/perl use MD5; require 'find.pl'; $md5 = new MD5; @dirs = @ARGV; foreach $dir ( @dirs ) { find($

Re: problem printf

On Mon, 25 Oct 2004 05:17 pm, deny wrote: > foreach $name ( sort @files) { >     ($uid,$gid) = (stat $nane)[4,5]; stat $nane or $name? Owen -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: problem printf

That isn't only perl code, it's incomplete, and it doesn't use 'printf'. Show us more code and explain your problem fully. thanks for your help here is the complete code #!/usr/bin/perl use MD5; require 'find.pl'; $md5 = new MD5; @dirs = @ARGV; foreach $dir ( @dirs ) { find($dir); } sub

RE: problem printf

deny <[EMAIL PROTECTED]> wrote: : i ve found a perl script to calculate the sum of the : permissions my principal files : : the line which is writing in my file is : : foreach $name ( sort @files) { :($uid,$gid) = (stat $nane)[4,5]; :ici la ligne $stat = sprintf

problem printf

hello i ve found a perl script to calculate the sum of the permissions my principal files the line which is writing in my file is foreach $name ( sort @files) { ($uid,$gid) = (stat $nane)[4,5]; ici la ligne $stat = sprintf "%Oo", (stat_)[2];// and whe