Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: perl linenum script
Top Forums Shell Programming and Scripting perl linenum script Post 302425824 by durden_tyler on Sunday 30th of May 2010 02:51:52 PM
Old 05-30-2010
Quote:
Originally Posted by livewire06
ok i got it working this far and error reporting for if its a directory and if theres not enough arguments are working but im still getting an error when it should work such as

./linenum.pl FILENAME

and im getting this error

Name "main::MY_FILE" used only once: possible typo at ./linenum.pl line 34.
Use of uninitialized value in string at ./linenum.pl line 11.
Undefined subroutine &main::Open called at ./linenum.pl line 11.

any advice?
...
Those are warnings (as opposed to errors), and are shown to you because you set the "-w" switch in the first line.

The first and second one should be pretty obvious. As for the third warning, note that the function is "open" and not "Open" - function names are case-sensitive in Perl, unlike say, Oracle.

About your previous question - no you cannot use the Perl one-liner inside your Perl script. Well, technically you *can*, but that's like wearing a hat on top of a hat - possible, but stupid and clumsy.

Here's one way to do it with Perl -

Code:
$ 
$ cat f0.pl
#!/usr/bin/perl -w
unless ( $#ARGV == 0 ) {
    print "error: incorrect number of arguments\nusage: linenum.pl [filename]\n";
    exit 1;
}
# Check if file is a directory
if ( -d "$ARGV[0]" ) {
    print "error: argument must be a file\nusage: linenum.pl [filename]\n";
    exit 2;
}
# Open function used with  filehandle and input file.
open (MY_FILE, "$ARGV[0]") or die "Can't open $ARGV[0]: $!";
# Loop and write lines from file
while (<MY_FILE>) {
  # Prints line number and line
  printf("%04d: %s", $., $_);
}
close (MY_FILE) or die "Can't close $ARGV[0]: $!";
$ 
$

Test run -

Code:
$ 
$ # no arguments
$ perl f0.pl
error: incorrect number of arguments
usage: linenum.pl [filename]
$ echo $?
1
$ 
$ # more than one argument
$ perl f0.pl f0 f1 f2
error: incorrect number of arguments
usage: linenum.pl [filename]
$ echo $? 
1
$ 
$ # a directory as an argument
$ perl f0.pl mydir
error: argument must be a file
usage: linenum.pl [filename]
$ echo $? 
2
$ 
$ # an unreadable file as an argument
$ perl f0.pl f1
Can't open f1: Permission denied at f0.pl line 12.
$ echo $?
13
$ 
$ # successful run
$ perl f0.pl f0
0001: This is line number 1
0002: This is line number 2
0003: This is line number 3
0004: This is line number 4
0005: This is line number 5
0006: This is line number 6
0007: This is line number 7
0008: This is line number 8
0009: This is line number 9
0010: This is line number 10
$ 
$

tyler_durden
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

[Perl] Accessing array elements within a sed command in Perl script

I am trying to use a script to replace the header of each file, whose filename are stored within the array $test, using the sed command within a Perl script as follows: $count = 0; while ( $count < $#test ) { `sed -e 's/BIOGRF 321/BIOGRF 332/g' ${test} > 0`; `cat 0 >... (2 Replies)
Discussion started by: userix
2 Replies

2. Shell Programming and Scripting

perl/unix: script in command line works but not in perl

so in unix this command works works and shows me a list of directories find . -name \*.xls -exec dirname {} \; | sort -u | > list.txt but when i try running a perl script to run this command my $query = 'find . -name \*.xls -exec dirname {} \; | sort -u | > list.txt';... (2 Replies)
Discussion started by: kpddong
2 Replies

3. Shell Programming and Scripting

Perl :How to print the o/p of a Perl script on console and redirecting same in log file @ same time.

How can i print the output of a perl script on a unix console and redirect the same in a log file under same directory simultaneously ? Like in Shell script, we use tee, is there anything in Perl or any other option ? (2 Replies)
Discussion started by: butterfly20
2 Replies

4. Shell Programming and Scripting

HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

Hi all, Not sure if this should be in the programming forum, but I believe it will get more response under the Shell Programming and Scripting FORUM. Am trying to write a customized df script in Perl and need some help with regards to using arrays and file handlers. At the moment am... (3 Replies)
Discussion started by: newbie_01
3 Replies

5. Shell Programming and Scripting

calling a perl script with arguments from a parent perl script

I am trying to run a perl script which needs input arguments from a parent perl script, but doesn't seem to work. Appreciate your help in this regard. From parent.pl $input1=123; $input2=abc; I tried calling it with system("/usr/bin/perl child.pl $input1 $input2"); and `perl... (1 Reply)
Discussion started by: grajp002
1 Replies

6. Shell Programming and Scripting

Using sed '${linenum}d' $filename in shell

Hi Experts, Please let me know how to below situation: Looking for: sed "${linenum}d" $filename > $filename _Without_7C Working Command: sed "${linenum}d" A020820122200.tis2webGMNA001_GDS_DIDOut.txt > A020820122200.tis2webGMNA001_GDS_DIDOut.txt_Without_7C appriciate if you can... (7 Replies)
Discussion started by: rajubollas
7 Replies

7. Shell Programming and Scripting

executing perl script from another perl script : NOT WORKING

Hi Folks, I have 2 perl scripts and I need to execute 2nd perl script from the 1st perl script in WINDOWS. In the 1st perl script that I had, I am calling the 2nd script main.pl =========== print "This is my main script\n"; `perl C:\\Users\\sripathg\\Desktop\\scripts\\hi.pl`; ... (3 Replies)
Discussion started by: giridhar276
3 Replies

8. Shell Programming and Scripting

Perl : embedding java script with cgi perl script

Hi All, I am aware that html tags can be embedded in cgi script as below.. In the same way is it possible to embed the below javascript in perl cgi script ?? print("<form action="action.htm" method="post" onSubmit="return submitForm(this.Submitbutton)">"); print("<input type = "text"... (1 Reply)
Discussion started by: scriptscript
1 Replies

9. Shell Programming and Scripting

Excuting perl script from within a perl script with variables.

Not sure what I am doing wrong here, but I can print the list with no issue. Just a blank screen with the 'do'. #!/usr/bin/perl open FILE, "upslist.txt"; while ($line=<FILE>){ if ($line=~/^(.*?),(.*?)$/){ #print "ups:$1 string:$2\n"; do 'check_snmp_mgeups-0.1.pl -H $1 -C $2'; } ... (1 Reply)
Discussion started by: mrlayance
1 Replies

10. Programming

PERL: In a perl-scripttTrying to execute another perl-script that SETS SOME VARIABLES !

I have reviewed many examples on-line about running another process (either PERL or shell command or a program), but do not find any usefull for my needs way. (Reviewed and not useful the system(), 'back ticks', exec() and open()) I would like to run another PERL-script from first one, not... (1 Reply)
Discussion started by: alex_5161
1 Replies

LEARN ABOUT SUSE

sieveshell

SIEVESHELL(1)						User Contributed Perl Documentation					     SIEVESHELL(1)

NAME

       sieveshell - remotely manipulate sieve scripts

SYNOPSIS

       sieveshell [--user=user] [--authname=authname] [--realm=realm] [--exec=script] server[:port]

       sieveshell --help

DESCRIPTION

       sieveshell allows users to manipulate their scripts on a remote server.	It works via MANAGESIEVE, a work in progress.

       The following commands are recognized:

	   list list scripts on server.

	   put <filename> upload script to server.

	   get <name> [<filename>] get script. if no filename display to stdout

	   delete <name> delete script.

	   activate <name> activate script.

	   deactivate deactivate all scripts.

OPTIONS

       -u user, --user=user
	   The authorization name to request; by default, derived from the authentication credentials.

       -a authname, --authname=authname
	   The user to use for authentication (defaults to current user).

       -r realm, --realm=realm
	   The realm to attempt authentication in.

       -e script, --exec=script
	   Instead of working interactively, run commands from script, and exit when done.

REFERENCES

       [MANAGESIEVE] Martin, T.; "A Protocol for Remotely Managing Sieve Scripts", draft-ietf-managesieve-03.txt, Mirapoint, Inc.; May 2001, work
       in progress.

AUTHOR

       Tim Martin <tmartin@mirapoint.com>, and the rest of the Cyrus team <cyrus-bugs@andrew.cmu.edu>.

perl v5.10.0							    2008-04-04							     SIEVESHELL(1)
All times are GMT -4. The time now is 01:55 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy