Login or Register to Ask a Question and Join Our Community


Shell Programming and Scripting

IF-THEN-ELSE in PERL not working

Login to Discuss or Reply to this Discussion in Our Community

 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting IF-THEN-ELSE in PERL not working
# 1  
Old 11-19-2012
IF-THEN-ELSE in PERL not working
Guys,
i was trying a simple if-then-else statement in perl; but not getting any success in that.
can you please help, where i am wrong. I tried $diff variable with double quotes as well, but no go.

Code:
$region = $ARGV[0];
$diff = $ARGV[1];

if [ $diff -eq 1 ]; then
        ($date) = split(' ', `ssh -xC $san[0] cat /tmp/prev_biz_date`);
else
        ($date) = split(' ', `ssh -xC $san[0] cat tmp/current_date`);
fi

Getting the below compilation error

Code:
sandos% /tmp/newXmit1 UT 1
syntax error at /tmp/newXmit1 line 20, near "if ["
syntax error at /tmp/newXmit1 line 22, near "else"
Execution of /tmp/newXmit1 aborted due to compilation errors.

When tried with "$diff"
Code:
$region = $ARGV[0];
$diff = $ARGV[1];

if [ "${diff}" -eq 1 ]; then
        ($date) = split(' ', `ssh -xC $san[0] cat /tmp/prev_biz_date`);
else
        ($date) = split(' ', `ssh -xC $san[0] cat tmp/current_date`);
fi

print "DIST FOR $date\n";

Compilation error is as below

Code:
sandosk% /tmp/newXmit1 UT 1
syntax error at /tmp/newXmit1 line 20, near "if ["
Execution of /tmp/newXmit1 aborted due to compilation errors.

# 2  
Old 11-19-2012
Hi

You are using the shell syntax of if.

Perl syntax:
Code:
if ($diff == 1 ) {
   .....
}else {
   .......
}


Guru.
This User Gave Thanks to guruprasadpr For This Post:
sdosanjh
# 3  
Old 11-19-2012
Thank you guru Smilie
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl Net::IP not working

Experts - I have a snippet of code I can't figure out. I was hoping someone could help me here. I have a file of IPv6 address that I need to format correct. Example in: 2620:0:2d0:200::7 2620:0:2d0:200:a0:c 2620:0a:3f0:200:a0:c I need to convert them to:... (3 Replies)
Discussion started by: timj123
3 Replies

2. Shell Programming and Scripting

How to make working this regex in perl?

Hello to all, The Regex below is supposed to match all strings except RR45. I've tested in regex101.com and it works, butwhen I try to use it with the perl command below I get the error shown. Regex=(?<=^|RR45)(?!RR45).+?(?=RR45|$) How to fix this? I'm using Cygwin. $ echo... (9 Replies)
Discussion started by: Ophiuchus
9 Replies

3. Shell Programming and Scripting

Elsif not working in perl

have issue where my elsif is always failing. Basically i have a file with sets of 2 lines, the 1st line that containing "ipwr" and the 2nd line containing a value or "unknown". if the 2nd line contains a value then i want to print the pair of lines. open (INFO, "temp.txt") or die; ... (3 Replies)
Discussion started by: johnny921
3 Replies

4. Shell Programming and Scripting

using variables in perl not working

sdcprd@dotstoas110:$ echo $F2 1327332411 this works ---------- sdcprd@dotstoas110:$ perl -MPOSIX -le 'print strftime ("%m%d%y",localtime (1327332411))' 012312 <<<< correct date this doesnt ----------- sdcprd@dotstoas110:$ perl -MPOSIX -le 'print strftime ("%m%d%y",localtime... (10 Replies)
Discussion started by: aliyesami
10 Replies

5. Shell Programming and Scripting

perl if else if loop not working

I am trying to work with a text file which has following format and trying ti run if elseif loop but fails. Any help is appreciated 289B ship N-grp 123 289C ship N-grp 123 289D ship N-grp 123 2CE1 flight N-grp 123 2CE2 flight N-grp 123 2CE3 flight N-grp 123 2CE4 flight N-grp 123 2DAF... (4 Replies)
Discussion started by: dynamax
4 Replies

6. Shell Programming and Scripting

\K in perl not working

Hi All, I have just started learning perl and was working on my one-liners tips and tricks. Instead of using the below command : perl -lape 's/(^From:).*/$1 Nelson Elhage <nelhage\@ksplice.com>/' i tried using the \k command using the below command but it gave no results: perl -lape... (2 Replies)
Discussion started by: kunwar
2 Replies

7. UNIX for Dummies Questions & Answers

Perl script not working

Hi Experts!! I have written a very simple script in perl.The script is : $ cat 1.pl #!/usr/bin/perl print "Hi there!\n"; When i ran the above perl script it is showing the following error: $ perl 1.pl -ksh: cd: bad substitution Can anybody,help on this ....as why this script is... (1 Reply)
Discussion started by: Amey Joshi
1 Replies

8. Shell Programming and Scripting

Method isSuccess not working right perl

Good morning all.... I have been learning Perl for about 2 months now and I guess I am getting there as much as I can however I am really stuck. I have a Perl script called postEvent.pl which uses a package called event.pm. PostEvent.pl depends on a meithod inside event.pm called isSuccess to... (0 Replies)
Discussion started by: LRoberts
0 Replies

9. Shell Programming and Scripting

working with other programs in perl

Hi, I'm still new to perl, and I'm trying to figure out how to work with data output from another program. For example, from a command line I can run "foo -xyz" and it will produce the output I am looking for, which is several lines of text that I will then parse and manipulate within the perl... (6 Replies)
Discussion started by: Decoy
6 Replies

10. Shell Programming and Scripting

how to change working directories in perl?

i am new to perl. i am writing a perl script. i want to know how to change the working directories? for ex. i have a perl script in c:\proj\ . i want to run this script in this directory but i need my script to change its working directory to D:\xyz\ dynamically in the script. your help is... (1 Reply)
Discussion started by: megastar
1 Replies
Login or Register to Ask a Question