Login or Register to Ask a Question and Join Our Community


Shell Programming and Scripting

Error in PERL

Login to Discuss or Reply to this Discussion in Our Community

 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting Error in PERL
# 1  
Old 06-28-2010
Error in PERL
Hi All,

I was trying to run the below program, its working perfectly for if condition however its not go to else conditing, if the input is wrong. what is the issue in this code. kindly help me !!!

Code:
print "Enter your Number \n";

$name = <STDIN>;

if ($name ="91111")

{ 

@dirlist1 = `wc -l *$name* >create2.txt`;

}

else {print "do not match";}

Last edited by pludi; 06-28-2010 at 09:35 AM.. Reason: code tags, please...
# 2  
Old 06-28-2010
Code:
if ($name ="91111")

should be
Code:
if ($name=="91111")

# 3  
Old 06-28-2010
Quote:
Originally Posted by adaleru
Hi All,


@dirlist1 = `wc -l *$name* >create2.txt`;

[/CODE]
should be

Code:
@dirlist1 = `wc -l *$name*` ;

# 4  
Old 06-28-2010
If you had used
Code:
use strict;
use warnings;

you could probably fix it by yourself:
Code:
Found = in conditional, should be == at my.pl line 10.

Besides you'd get following error message:
Code:
Global symbol "$name" requires explicit package name at my.pl line 8.
Global symbol "$name" requires explicit package name at my.pl line 10.

This can be fixed like this:
Code:
my $name = <STDIN>;

# 5  
Old 06-28-2010
Thanks for all your replies. Its working fine now. thank you once again bartus11,ahmad,pseudocoder
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. AIX

Perl error : perl: warning: Setting locale failed.

This's my problem perl: warning: Setting locale failed. perl: warning: Please check that your locale settings: LC_ALL = "en_US.UTF-8", LC__FASTMSG = "true", LC_MESSAGES = "", LC_CTYPE = "en_US.UTF-8", LC_TYPE = "en_US.UTF-8", LANG = "EN_US"... (1 Reply)
Discussion started by: bobochacha29
1 Replies

2. Shell Programming and Scripting

Perl command error

In the attached file I get this error. Thank you :). C:\cygwin\home\cmccabe\windows_annovar.sh: line 117: perl: command not found (17 Replies)
Discussion started by: cmccabe
17 Replies

3. Shell Programming and Scripting

Perl error

cat "C:\Program Files\BioDiscovery\Nexus 7\Organisms\Human\NCBI Build 37\refseq_genes.txt" | perl -aF/\\t/ -lne '$F=~/_/ and next; @st=split/\,/,$F;@en=split/\,/,$F;print join("\t",$F,$st,$en,$F) for (0..$#st)' | sort -u > refseq_exons.bed sort: open failed: -u: No such file or directory ... (6 Replies)
Discussion started by: cmccabe
6 Replies

4. Shell Programming and Scripting

Perl error

New to perl, trying to decipher and fix the below error: Thanks. $ perl -ne 'chomp; system ("perl table_annovar.pl $_ humandb/ -buildver hg19 -protocol refGene,popfreq_all -operation g,f -otherinfo”)' < file.txt Can't find string terminator '"' anywhere before EOF at -e line 1. (2 Replies)
Discussion started by: cmccabe
2 Replies

5. Shell Programming and Scripting

PERL error handling

I have a PERL command line embedded in a UNIX script. The script doesn't handle errors coming out of this command. I'm processing large files and occassionally I run out of disk space and end up with half a file. perl -p -e 's/\n/\r\n/g' < TR_TMP_$4 > $4 How do I handle errors coming out... (1 Reply)
Discussion started by: OTChancy
1 Replies

6. Shell Programming and Scripting

Perl error. Help please

At this line in the perl script, @databases = `crs_stat | grep .db | awk -F. '{print $2}'`; It is throwing this error. Use of uninitialized value in concatenation (.) or string at ........ Looks like it didn't like the 2 dots I have in the statements. Is there a way to get around this... (3 Replies)
Discussion started by: MKNENI
3 Replies

7. Shell Programming and Scripting

Perl programming error

Hi, everyone!! i am new to perl programming.. plz help me. #!C:/perl/bin use warnings; use strict; use Text::CSV_XS; my @rows = ""; my $row; my $count; my $fh; my @fields = ""; my $csv = Text::CSV_XS->new ({binary =>1}) or die "cannot use CSV:" .Text::CSV->error_diag (); open... (3 Replies)
Discussion started by: kvth
3 Replies

8. Shell Programming and Scripting

Perl script error

Hi all I keep getting a segmentation fault error while running the script below. #!/usr/bin/perl -w use CGI ':standard'; use GD::Graph::pie; use strict; use warnings; sub trim($) { my $string = shift; $string =~ s/^\s+//; $string =~ s/\s+$//; ... (4 Replies)
Discussion started by: pietie
4 Replies

9. Shell Programming and Scripting

Perl Error

# perl -p -w -e 's/</book>(?:\n)<collection>(.*)</collectioninfo>//g' test1.txt Bareword found where operator expected at -e line 1, near "s/</book>(?:\n)<collection>(.*)</collectioninfo" Unquoted string "collectioninfo" may clash with future reserved word at -e line 1. syntax error at -e line... (3 Replies)
Discussion started by: dirdamalah
3 Replies

10. Programming

PERL Error

hi, I am trying following TELNET script on SunOS terminal01 5.8 Generic_108528-27 sun4u sparc SUNW,Sun-Blade-100. I am stuck up due to an Error I cannot fix out. please can some one here can help me out. I must be thankful. code: Error output for perl -V THX and... (3 Replies)
Discussion started by: Asteroid
3 Replies
Login or Register to Ask a Question