Re: simple issue--Need Help

"Nishi Bhonsle" schreef: > open FILE,">>$logfile"; Make that open my $fh, '>>', $logfile or die "open $logfile, stopped $!" ; and adjust. -- Affijn, Ruud "Gewoon is een tijger." -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: simple issue--Need Help

"Nishi Bhonsle" schreef: > open FILE,"+<$logfile"; > @contents = ; You are using FILE and FILE2. You are closing FILE2, but never opened it. Start using lexical filehandles, named like $fh_in and $fh_out. -- Affijn, Ruud "Gewoon is een tijger." -- To unsubscribe, e-mail: [EMAIL PROTECTED]

Re: simple issue--Need Help

"Nishi Bhonsle" schreef: > foreach $_ (@new) No need to mention $_, it's implicit. -- Affijn, Ruud "Gewoon is een tijger." -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: simple issue--Need Help

"Nishi Bhonsle" schreef: > use File::Basename; > use File::Find; > use IO::All; These don't belong together: the functionality of all is in IO::All. -- Affijn, Ruud "Gewoon is een tijger." -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: simple issue--Need Help

Nishi Bhonsle wrote: [big snip] > open FILE,"+<$logfile"; @contents = ; foreach $src (@contents) { if(/$src" "%HOME%/$src" "$src"\n); print FILE2 $record;} elsif(So, instead of printing "/$src" "%HOME%/$src" "$src" in one single line, it prints each field of the record ie "/$src", "%HOME

Re: simple issue--Need Help

adding chomp($src) soon after the foreach begins before the if statement corrects the records printing. foreach $src (@contents) { chomp($src); if( wrote: Sadly doesnt work. I still get ouput like "/$src " "%HOME%/$src " "$src " instead of "/$src" "%HOME%/$src" "$src" I tried putting the c

simple issue--Need Help

Hi: The following code ends up adding new line after each column/field in the record $record in FILE2. #!/usr/bin/perl use strict; use warnings; use File::Basename; use File::Find; use IO::All; my $path = $ARGV[0]; my $io = io($path); my @new = $io->all_files; #get all files under $path forea