issue with if loop in perl Post: 302156484

Sponsored Content

Top Forums Shell Programming and Scripting issue with if loop in perl Post 302156484 by cbkihong on Tuesday 8th of January 2008 08:40:35 AM

01-08-2008

Registered User

Quote:

Originally Posted by amitrajvarma

while (<FILE>) {

$t = 0;
if (/cp c2960-lanlitek9-mz \/tftpboot\/$u\/c2960-lanlitek9-mz/) {
$t = 1;
}

if ( $t == 1 ) {

print "$c2960[5]\n";
open(OUTFILE,">>$of1") || die "cud not write";
print OUTFILE "c2960-lanlitek9-mz\n";
close(OUTFILE);
last;

} elsif ( $t == 0 ) {

print "NO $c2960[5]\n";
open(OUTFILE,">>$of2") || die "cud not write";
print OUTFILE "c2960-lanlitek9-mz\n";
close(OUTFILE);
last;

} else { }

} ## end of while crypto log
close(FILE);

You still have not mentioned what is your expected behaviour. Please be reminded that your script is very customized and will not run on others' machines, you should provide enough information for others to help you.

Unless you provide us with your expectations, I will just offer some general advise:

As the if block depends on $t and in turn from the pattern matching above, you should first make sure the matching result is correct.

Next, if the file cannot be written into and shows 'cud not write', consider die'ing with

die $!

instead to have the exact error message printed for debug. I also advise you to print $of1 and $of2 and ensure the values are as expected, as I cannot understand why you chomp() a static string. It is harmless, but that does not make sense:

Code:

$of1="\/users\/$u\/success.txt";
$of2="\/users\/$u\/failed.txt";
chomp($of1);
chomp($of2);

cbkihong

View Public Profile for cbkihong

Find all posts by cbkihong

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Help With A For Loop Issue

I was wondering how I can modify this for loop, so it only loops through the filenames that do not have an ".old" extension. for filename in $(ls "$1") do echo $filename | grep '\.old$' > /dev/null if then mv $1/$filename $1/$filename.old fi done

2. Shell Programming and Scripting

while loop issue

Hi, Following is my code and the file FILE_LIST_EXCESS.txt has 40 file names in it while read LineIn do echo ${LineIn} `ftp -vin << END_INPUT >> ${PID}_DS_GET_Log.log 2>&1 open servername user userid password cd FileDir get ${LineIn} END_INPUT`...

3. Shell Programming and Scripting

loop issue

I have 2 files one of them has all the all mac addresses and the other one has all the ip addresses. Basically, I want to loop thru those 2 files and generate a configuration like below: host www184.domain.com { hardware ethernet 00:13:72:3B:B4:3A; fixed-address 192.168.0.184; }...

4. Shell Programming and Scripting

Perl - pass shell-vars into perl for input loop

I need to process a file line-by-line using some value from a shell variable Something like:perl -p -e 's/$shell_srch/$shell_replace/g' input.txt I can't make the '-s' work in the '-p' or '-n' input loop (or couldn't find a syntaxis.) I have searched and found...

5. Shell Programming and Scripting

until loop issue.

Hi, my script is waiting for 3 files to come to a folder for 30 min but even when all the files arrive in the folder it's still waiting for these three files. Files can come with in 2 min and I want it to start processing them immediately after all the files arrive in the folder. until ; do...

6. Shell Programming and Scripting

for-while loop issue

sup experts..i had a script which was bugging me..was hoping someone could point out the issue here Input file: space separated 2 columns I wanted to print out the 2 columns after assigning them to variables ( bascially the same output but iterate through line by line ). The code worked...

7. Shell Programming and Scripting

Issue with using While loop

Hi, I am trying to move a file from remote server to local server and when the transfer completes successfully i call a script in remote server to remove the file which was successfully transferred. I do this by first getting the list of file in remote server and move the text file to local...

8. Shell Programming and Scripting

While Loop issue

Hi, i=0 t5=6000001 while do i=`expr $i + 1` t5=`expr $t5 + 1` echo $t5 done I am able to increment "col3" value but unable to get col1,col2 value. Input: t1=10001 t2=abc t3=ghkc

9. Shell Programming and Scripting

Issue with while loop?

Hi, I have prepared a script to search for backup file information on the Linux server. Script works fine for the most part except the echo statement inside an IF conditional block displays the message ''snapshot directory not found on xxxxx" even though the .snapshot directory is found a...

10. Shell Programming and Scripting

Issue with for loop

Hi Team, I have for loop in my shell script. Which basically loop through all files in the directory, When some files are in the directory it works just fine. But if there are no files at all..still the for loop try to execute. Please help. Below is the code. #!/bin/ksh echo "Program...

LEARN ABOUT DEBIAN

bespp

BESPP(1)							   User Commands							  BESPP(1)

NAME

       bespp - pretty print a BES

SYNOPSIS

       bespp [OPTION]... [INFILE [OUTFILE]]

DESCRIPTION

       Print  the  BES in INFILE to OUTFILE in a human readable format. If OUTFILE is not present, stdout is used. If INFILE is not present, stdin
       is used.

OPTIONS

       OPTION can be any of the following:

       -fFORMAT, --format=FORMAT
	      print the PBES in the specified FORMAT:
		'default' for a PBES specification (default)

       --timings[=FILE]
	      append timing measurements to FILE. Measurements are written to standard error if no FILE is provided

       Standard options:

       -q, --quiet
	      do not display warning messages

       -v, --verbose
	      display short intermediate messages

       -d, --debug
	      display detailed intermediate messages

       --log-level=LEVEL
	      display intermediate messages up to and including level

       -h, --help
	      display help information

       --version
	      display version information

AUTHOR

       Written by Jeroen Keiren.

REPORTING BUGS

       Report bugs at <http://www.mcrl2.org/issuetracker>.

COPYRIGHT

       Copyright (C) 2012 Technische Universiteit Eindhoven.
       This   is   free   software.    You   may   redistribute   copies   of	it   under   the   terms   of	the   Boost    Software    License
       <http://www.boost.org/LICENSE_1_0.txt>.	There is NO WARRANTY, to the extent permitted by law.

SEE ALSO

       See also the manual at <http://www.mcrl2.org/mcrl2/wiki/index.php/User_manual/bespp>.

bespp mCRL2 toolset 201202.0 (Release)				    April 2012								  BESPP(1)

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Help With A For Loop Issue

Discussion started by: ralts01

2. Shell Programming and Scripting

while loop issue

Discussion started by: mgirinath

3. Shell Programming and Scripting

loop issue

Discussion started by: kkkk

4. Shell Programming and Scripting

Perl - pass shell-vars into perl for input loop

Discussion started by: alex_5161