Login or Register to Ask a Question and Join Our Community


Shell Programming and Scripting

Simple Perl error

Login to Discuss or Reply to this Discussion in Our Community

 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting Simple Perl error
# 1  
Old 04-24-2011
Simple Perl error
Hello All,

I'm trying to run a simple perl script and have the below error. Tried to google it but could not get a precise solution. Could you please help me out.

Can't locate object method "are" via package "equal" (perhaps you forgot to load "equal"?) at ./equal.pl line 9, <STDIN> line 2.

The script is is as follows.
Code:
[deploy@red ~]$ cat equal.pl
#!/usr/bin/perl
#this program is to identify if 2 given numbers are equal
print ("enter number1: \n");
$number1 = <STDIN>;
print ("enter number2: \n");
$number2 = <STDIN>;
if ($number1 == $number2) {
}
print (both numbers are equal);
[deploy@red ~]$ ./equal.pl
enter number1:
5
enter number2:
5

Can't locate object method "are" via package "equal" (perhaps you forgot to load "equal"?) at ./equal.pl line 9, <STDIN> line 2.

Thanks
Saikrishna
Last edited by Scott; 04-24-2011 at 05:53 PM.. Reason: Please use code tags
# 2  
Old 04-24-2011
Code:
#!/usr/bin/perl
 #this program is to identify if 2 given numbers are equal
 print ("enter number1: \n");
 $number1 = <STDIN>;
 print ("enter number2: \n");
 $number2 = <STDIN>;
 if ($number1 == $number2) {
 }
 print ("both numbers are equal");

# 3  
Old 04-24-2011
hey bartus11,

Do you have any idea why it is still showing the numbers are equal even when they are not?
Code:
[deploy@red ~]$ ./equal.pl
enter number1:
7
enter number2:
6

both numbers are equal[deploy@red ~]$
Code:
[deploy@red ~]$
[deploy@red ~]$ ./equal.pl
enter number1:
9

enter number2:
1
both numbers are equal[deploy@red ~]$
Last edited by Scott; 04-24-2011 at 06:45 PM.. Reason: Code tags
# 4  
Old 04-24-2011
Yea..
Code:
#!/usr/bin/perl
#this program is to identify if 2 given numbers are equal
print ("enter number1: \n");
$number1 = <STDIN>;
print ("enter number2: \n");
$number2 = <STDIN>;
if ($number1 == $number2) {
  print ("both numbers are equal");
}

Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Convert bash to simple perl

please delete! (0 Replies)
Discussion started by: SkySmart
0 Replies

2. Shell Programming and Scripting

Simple Perl question

Hello, I'm completely new to Perl and I'm just looking for a quick answer to some code I'm trying to come up with. I'm trying to access a website, part of the URL I want the user to be able to define via standard input. As you can see below I'm still trying to get the syntax. ... (2 Replies)
Discussion started by: wxornot
2 Replies

3. Shell Programming and Scripting

Can Help me in simple perl code

Hi all i want a program have input file .txt and process it then got output Ex: input: King Saud University say hi Mr.Ahmed Cena have a car perl is good ! Dr.john is good! output: KSU say hi Mr.AC have a car perl is good! Dr.John is good! so the process take the String has... (3 Replies)
Discussion started by: abdulelah252
3 Replies

4. Shell Programming and Scripting

Help making simple perl or bash script to create a simple matrix

Hello all! This is my first post and I'm very new to programming. I would like help creating a simple perl or bash script that I will be using in my work as a junior bioinformatician. Essentially, I would like to take a tab-delimted or .csv text with 3 columns and write them to a "3D" matrix: ... (16 Replies)
Discussion started by: torchij
16 Replies

5. Shell Programming and Scripting

Simple Perl Topic

Hi, I am practicing a very simple perl programming, what i want to do is reverse the string what is wrong with the following Thanks $string = "abcdef"; @array = split(//, $string); $length =length @array for ( i=1;i< $length+1;i++) { print "$_\n"; } (5 Replies)
Discussion started by: ccp
5 Replies

6. Shell Programming and Scripting

Simple perl question

I am totally new to perl. I am modifying someone else's script. I have the following output: # ./some-perlscript A B C D E B - E, is generated through the print command that I put in the script. I want to remove A, it seems it is generated automatically by a custom OS it is querying when... (3 Replies)
Discussion started by: streetfighter2
3 Replies

7. Shell Programming and Scripting

perl 09-06-11 to 11062009, simple one line

Hi Guys, If want to change the string "09-06-11" to "11062009", i can only think use split to get the array@, the ,,, then restructure the sequence. Is there a simple line to do that? :o Thanks -----Post Update----- @file_e_tmp = split('-', $ARGV); $file_date_e =... (6 Replies)
Discussion started by: jimmy_y
6 Replies

8. Shell Programming and Scripting

simple socket programming in perl

hi i want to write simple socket program which will listen on socket . here is the code ## read msg on socket #! /usr/bin/perl use IO::Socket::INET; my $MySocket= IO::Socket::INET->new(LocalPort=>1234, Proto=>'udp') ; while ()... (2 Replies)
Discussion started by: zedex
2 Replies

9. Shell Programming and Scripting

simple perl script not working

why won't below work? I am trying to see a)sipfile has username of the system. b)it will read the sipfile and do a grep function against the /etc/passwd c)it will save that output to /tmp/result.. but my script is just hanging... #!/usr/bin/perl -w open(SIPFILE, "</tmp/sipfile") ... (4 Replies)
Discussion started by: hankooknara
4 Replies

10. UNIX for Dummies Questions & Answers

a simple perl

not sure if i should post here or "shell programming" anyway, i am just start learning perl. 1 #!/usr/local/bin/perl 2 3 $test1="Iam"; 4 if ($test1=="anything") 5 { 6 print "show me\n"; 7 } when i run the program, it display "show me" all... (3 Replies)
Discussion started by: gusla
3 Replies
Login or Register to Ask a Question