Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: How to Turn perl one-liners into full perl script?
Top Forums UNIX for Dummies Questions & Answers How to Turn perl one-liners into full perl script? Post 302283893 by otheus on Wednesday 4th of February 2009 09:49:48 AM
Old 02-04-2009
The -p option adds this around the entire script:
Code:
  while (<>) { 
    ...
  }
  continue { 
    print $_; 
  }

The -i option modifies the <> expression (above) so that $ARGV, which contains the name of the currently-being-read file, is backed up to a temporary file, and the output (STDOUT) directed to a file named the same as the original. Or something like that.

That's why turning it into a script is not quite so easy. You have to do that stuff yourself OR... you can just do:
Code:
#!/usr/bin/perl -pi

#... your code here

Except in that case, you DONT want to open your filenames as you are doing.
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl: Run perl script in the current process

I have a question regarding running perl in the current process. I shall demonstrate with an example. Look at this. sh-2.05b$ pwd /tmp sh-2.05b$ cat test.sh #! /bin/sh cd /etc sh-2.05b$ ./test.sh sh-2.05b$ pwd /tmp sh-2.05b$ . ./test.sh sh-2.05b$ pwd /etc sh-2.05b$ So... (10 Replies)
Discussion started by: vino
10 Replies

2. 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

3. Shell Programming and Scripting

Perl how to make the 2nd CPU full?

Hi Buddies, my pc has two CPU, so CPU1 and CPU2. I have a perl "a.pl", when i "./a.pl", i can see the CPU1 is full or CPU2 is full, mean only one is full, another one is idle. Wonderring what shall i do in order to let both CPU to process this a.pl.:( Thanks (1 Reply)
Discussion started by: jimmy_y
1 Replies

4. Shell Programming and Scripting

Perl : Find a string and Print full line

Hi Need a perl script to read lines in a file, scan for a string named "APPLE" and write to different file the only lines containing the matched string. (5 Replies)
Discussion started by: PrasannaKS
5 Replies

5. Shell Programming and Scripting

Return Full File Path To Array PERL

Iam trying to load the full path of multiplie files in the same directory to an array if the filenames matches a pattern. The following is the current code; where $input=C:\test # change to and open the comparison directory chdir("$input2") || die "Cannot change dir: $!"; opendir(DIR2,... (2 Replies)
Discussion started by: cold_Que
2 Replies

6. 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

7. 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

8. Shell Programming and Scripting

Check if Queue empty or full in perl

Hi, I got problem with queue code how to determined empty and full and problem with while loop Here is my pseudo code : Input page Access Input Pgae Frame For i =3 to pageframe count by 1 construct queue of size i set pageFaultCount to 0 while morepages do page = NextPage... (1 Reply)
Discussion started by: guidely
1 Replies

9. 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

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 DEBIAN

app::rad::include

App::Rad::Include(3pm)					User Contributed Perl Documentation				    App::Rad::Include(3pm)

NAME

       App::Rad::Include - 'include' command extension for App::Rad

VERSION

       Version 0.01

SYNOPSIS

       'include' is an opt-in command for you App::Rad programs (myapp.pl):

	   use App::Rad qw(include);  # add the 'include' command
	   App::Rad->run();

       and now you can turn your one-liners (e.g:)

	   [user@host]$ perl -i -pe 's/
//' file.txt

       into nice scalable commands, simply replacing 'perl' for 'yourapp include <NAME>'

	   [user@host]$ myapp.pl include dos2unix -i -pe 's/
//'

       and there you go, a brand new 'dos2unix' command:

	   [user@host]$ myapp.pl dos2unix file.txt

DESCRIPTION

       This is an internal module for App::Rad and should not be used separately. Please refer to App::Rad for further documentation.

INTERNAL METHODS

   load
       Loads the module into App::Rad

   include
       Translates perl one-liner into self-contained command (subroutine) and adds it to your App::Rad program.

DEPENDENCIES

       o   O, which is core in Perl 5.8.

       o   B::Deparse, also core in 5.8.

       o   Perl::Tidy (optional)

AUTHOR

       Breno G. de Oliveira, "<garu at cpan.org>"

ACKNOWLEDGEMENTS

       The one-liner conversion and beautification was *much* easened because of the nice "O" , "B::Deparse" and "Perl::Tidy" modules. So many
       thanks to Malcolm Beattie, Nicholas Clark, Stephen McCamant, Steve Hancock, and everyone that helped those projects.

LICENSE AND COPYRIGHT

       Copyright 2008 Breno G. de Oliveira "<garu at cpan.org>". All rights reserved.

       This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic.

DISCLAIMER OF WARRANTY

       BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT
       WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND,
       EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
       THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF
       ALL NECESSARY SERVICING, REPAIR, OR CORRECTION.

       IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
       REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENCE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL, OR
       CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
       RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
       SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.

perl v5.10.1							    2008-12-21						    App::Rad::Include(3pm)
All times are GMT -4. The time now is 06:04 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy