Recent content by vptl

Yes you are correct I had to do that also. Thanks Varakal.

Okay..now works.... Missed ls -l in my command. it happens....with me a lot! :) Thanks everyone for today's help especially My perl instructor Triojan. Thanks.

Now the other prob...Sorry for asking ebvery bit...but I am going ..to find wwhat is wrong! This is my code... #!/usr/bin/perl -w use strict; use diagnostics; my $count=0; open OUTFILE, "> /var/tmp/BIG_FILE" or die "Cannot create Big file" ; open STREAM, "/bin/ls /var/tmp/*SED | awk '{print...

Got it.! while (my $file=<STREAM>).

Hello, Can you please tell me where I am missing something... The error stats that $file is not initialised while reading instruction for opening DATA. Thanks. #!/usr/bin/perl -w use strict; use diagnostics; my $count=0; open STREAM, "/bin/ls /var/tmp/*SED |" or die "Could not do ls" ...

Hi, Do we have to use any special convention in naeming the port which connects to RA link ? Thanks. Vimal.

Thanks for you effort. Will try and seek your help if needed.

I 100% agree....I am a ksh guy...so it may take a while to clean the slate! :)

Ok now I learned it...I have to do print OUTFILE "TEXT\N"; Trojan, Thanks a lot for your continued support.

My output file is empty....why ? use diagnostics; use strict; my $date=`/bin/date `; chomp($date); $date =~ s/[\s:]/_/g; open STREAM, "/nas/bin/nas_fs -list |" or die "Failed to run nas_fs -list"; open OUTFILE, "> /tmp/fs_list_$date" or die "Failed to create log file"; while (<STREAM>) {...

Works....cool...As alway...thank you SIR!.

still in my out put stream there is a blank line at the end causing prob ... in other words how do I do this.... next if /(?:root|name|^$)/ ;

I need to genrate a file for the record keeping as to what was my raw material for the test was !

I think the main prob here is interpretation of $file during redirection. I am not sure what will fix this. I am trying to add/remove quots w/o a clue.

Results... Code: ============================================== use diagnostics; my $date=`/bin/date| sed -e s/" "/_/g |sed -e s/:/_/g`; chomp($date); $file='/tmp/fs_list_'.$date; if ( -f $file) { system(qq!/bin/rm $file > /dev/null 2>&1!); } else { print "There is no $file exists...safe to...