Sponsored Content
Full Discussion: My crap PERL program
Top Forums Shell Programming and Scripting My crap PERL program Post 30931 by criglerj on Tuesday 29th of October 2002 05:56:06 PM
Old 10-29-2002
Re: Re: My crap PERL program

Quote:
Originally posted by Optimus_P


you can simplify it like so.

Code:
#!/usr/bin/perl -w
while (<>) { chomp ; print $.,": $_\n"; }

You can simplify it even more:
Code:
#!/usr/bin/perl -ln
print "$.: $_"

Or do it in awk:
Code:
#!/bin/awk
{ print NR ": " $0 }

 

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

perl program

I wish to write a Perl program that will provide a listing of files in a directory. The files must be listed in sorted order by the file name. • By default, the program displays only file names. • By default, the program lists the files in the current directory. • The program must provide the... (2 Replies)
Discussion started by: livewire06
2 Replies

2. Shell Programming and Scripting

perl program

could i get any help with how to link this program together. i dont know what to put where the X's are print `flush`; thank(); #print thank header use Getopt::Std; # use declaration with the options function getopts("ld:") or usage() and exit; ... (3 Replies)
Discussion started by: livewire06
3 Replies

3. Homework & Coursework Questions

Calling compiled C program with Perl program

Long story short: I'm working inside of a Unix SSH under a bash shell. I have to code a C program that generates a random number. Then I have to call the compiled C program with a Perl program to run the C program 20 times and put all the generated random #s into a text file, then print that text... (1 Reply)
Discussion started by: jdkirby
1 Replies

4. Shell Programming and Scripting

I'm beginning to believe that Perl is crap.

Must every module be compiled? Why is it Math::GMP never installs? I was simply trying to use Net::SSH::Perl and it's driving me nuts. Granted, I am working as a user with limited privileges, but this is ridiculous. I even tried creating an ubuntu virtual machine, going in as root, and... (2 Replies)
Discussion started by: mrwatkin
2 Replies

5. Shell Programming and Scripting

Exiting a program! - perl

how would you exit out of a programm correctly, without having for the program to crash? for example print "Enter quit"; $input = <STDIN>; if ($input eq "quit") { {QUIT THE PROGRAM} } else { print "invalid input"; } one more thing, how do u exit a program "correctly", if... (3 Replies)
Discussion started by: bshell_1214
3 Replies

6. Programming

Perl program

Hi I am new to perl, i need to write a program to convert horizontal words to vertical eg: cat, dog, cow,.....(text file) this should be written as 1.cat 2.dog like this. can u pls help me to work out.. (4 Replies)
Discussion started by: nitha
4 Replies

7. Shell Programming and Scripting

Help regarding a Perl Program

I want to traverse a durectory for a particular file. Situataion is like this. Path is ABC/a/c/g. it has around 100 folders in it. Search a directory which has word "*latest*" in its path. and then from the latest go through z/x/c to file final.html. In total, i want it to go through... (4 Replies)
Discussion started by: hemasid
4 Replies

8. Shell Programming and Scripting

Perl program

can anyone help me out to write a code by connecting to the sql database and I need to print the list of tables present in the databse. any ideas please. (1 Reply)
Discussion started by: ramkumar15
1 Replies

9. Shell Programming and Scripting

Perl program get a response before the program quits

I created a program, so a kid can practice there math on it. It dispenses varies math problems and the kid must input an answer. I also want it to grade the work they have done, but I can't find the best place for it to print out the grade. I have: if ( $response =~ m/^/ ) { $user_wants_to_quit... (1 Reply)
Discussion started by: germany1517
1 Replies
PERL-DEPENDS(1) 					      cvs status - formatter						   PERL-DEPENDS(1)

NAME
perl-depends - Roughly find out module depends from Perl file(s) SYNOPSIS
perl-depends [options] FILE [FILE ...] DESCRIPTION
Find out roughly the modules the program uses. This is based on the idea, that Perl evaluates the "use" commands at compile time and stores the loaded module information into the %INC variable. By examining the loaded modules and comparing them against the standard Perl modules, the external module dependencies can be roughly estimated. The depends information can be used to determine what external modules have to be installed before a program can be used. The target FILE have to be instrumented with the dependency checking code. The resulting "binary" is then stored in a temporary file which the user runs. This program does not run the instrumented files because it cannot know what possible options need to be passed for the program to trigger "no behavior". That is, something that doesn't actually involve executing the "binary" in real. Such options passed would include --version, --dry-run, invalid options like --generate-syntax-error-now, or invalid files etc. to make program stop on error. The user can know better the details of running the intrumented file. An example of output: the external module depends here is 'Regexp::Common' and the rest of them can be ignored. Regexp::Common Regexp/Common.pm Regexp::Common::CC Regexp/Common/CC.pm ... OPTIONS
-e, --extension=EXT Use extension EXT for instrumented files. The default is ".tmp". -h, --help Print text help --help-html Print help in HTML format. --help-man Print help in manual page man(1) format. -v, --verbose LEVEL Print informational messages. Increase numeric LEVEL for more verbosity. -V, --version Print contact and version information. EXAMPLES
Instrument a file, run it to see results and delete instrumentation: perl-depends file.pl perl file.pl.tmp --version rm *.tmp TROUBLESHOOTING
None. ENVIRONMENT
None. FILES
None. EXIT STATUS
This program's exit status is not defined. The instrumented programs exit status is 1 in case external moduels are displayed and 0 if no external modules are found. DEPENDENCIES
Uses standard Perl modules. BUGS AND LIMITATIONS
None. SEE ALSO
cpan(1) AVAILABILITY
http://freshmeat.net/projects/perl-depends AUTHOR
Jari Aalto <jari.aalto@cante.net> LICENSE
Copyright (C) 2009-2011 Jari Aalto <jari.aalto@cante.net> This program is free software; you can redistribute and/or modify program under the terms of GNU General Public license either version 2 of the License, or (at your option) any later version. perl v5.10.1 2011-03-24 PERL-DEPENDS(1)
All times are GMT -4. The time now is 10:07 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy