Perl/Scripts - Revision history

Christoph at 06:45, 24 September 2007

2007-09-24T06:45:47Z

Christoph: /* Misc */

2007-09-08T08:50:47Z

‎Misc

Christoph at 08:46, 8 September 2007

2007-09-08T08:46:57Z

Show changes

Christoph: /* Average numbers */

2007-09-08T08:32:29Z

‎Average numbers

Christoph: /* The tr/// operator */

2007-09-08T08:31:28Z

‎The tr/// operator

Christoph at 01:45, 5 September 2007

2007-09-05T01:45:49Z

Christoph at 01:24, 5 September 2007

2007-09-05T01:24:43Z

Christoph: /* External links */

2007-07-05T05:49:15Z

‎External links

Christoph at 02:32, 5 July 2007

2007-07-05T02:32:33Z

New page

The following is a compilation of '''useful one-line scripts for [[Perl]]'''. The original was compiled by Tom Christiansen, however, I have converted it into the wiki format and have added more examples (always adding more).

==Perl one-liners==
*run contents of "my_file" as a program
perl my_file

*run debugger "stand-alone"
perl -d -e 42

*run program, but with warnings
perl -w my_file

*run program under debugger
perl -d my_file

*just check syntax, with warnings
perl -wc my_file

*useful at end of "find foo -print"
perl -nle unlink

*simplest one-liner program
perl -e 'print "hello world!\n"'

*add first and penultimate columns
perl -lane 'print $F[0] + $F[-2]'

*just lines 15 to 17
perl -ne 'print if 15 .. 17' *.pod

*in-place edit of *.c files changing all foo to bar
perl -p -i.bak -e 's/\bfoo\b/bar/g' *.c

*command-line that prints the first 50 lines (cheaply)
perl -pe 'exit if $. > 50' f1 f2 f3 ...

*delete first 10 lines
perl -i.old -ne 'print unless 1 .. 10' foo.txt

*change all the isolated oldvar occurrences to newvar
perl -i.old -pe 's{\boldvar\b}{newvar}g' *.[chy]

*command-line that reverses the whole file by lines
perl -e 'print reverse <>' file1 file2 file3 ....

*find palindromes
perl -lne 'print if $_ eq reverse' /usr/dict/words

*command-line that reverse all the bytes in a file
perl -0777e 'print scalar reverse <>' f1 f2 f3 ...

*command-line that reverses the whole file by paragraphs
perl -00 -e 'print reverse <>' file1 file2 file3 ....

*increment all numbers found in these files
perl i.tiny -pe 's/(\d+)/ 1 + $1 /ge' file1 file2 ....

*command-line that shows each line with its characters backwards
perl -nle 'print scalar reverse $_' file1 file2 file3 ....

*delete all but lines between START and END
perl -i.old -ne 'print unless /^START$/ .. /^END$/' foo.txt

*binary edit (careful!)
perl -i.bak -pe 's/Mozilla/Slopoke/g' /usr/local/bin/netscape

*look for dup words
perl -0777 -ne 'print "$.: doubled $_\n" while /\b(\w+)\b\s+\b\1\b/gi'

*command-line that prints the last 50 lines (expensively)
perl -e '@lines = <>; print @lines[ $#lines .. $#lines-50' f1 f2 f3 ...

==External links==
*[http://www.ibm.com/developerworks/linux/library/l-p101/ Cultured Perl: One-liners 101]
*[http://www.ibm.com/developerworks/linux/library/l-p102.html Cultured Perl: One-liners 102]

[[Category:Scripting languages]]

← Older revision		Revision as of 06:45, 24 September 2007
Line 1:		Line 1:
	The following is a compilation of '''useful one-line scripts for [[Perl]]'''. The original was compiled by Tom Christiansen, however, I have converted it into the wiki format and have added more examples (always adding more).		The following is a compilation of '''useful one-line scripts for [[Perl]]'''. The original was compiled by Tom Christiansen, however, I have converted it into the wiki format and have added more examples (always adding more).
		+
		+	==Edit a file from the CLI using [[Perl]]==
		+
		+	perl -p -i.bak -e 's\|before\|after\|' filename # backup of original file 'filename.bak'
		+
		+	perl -p -i -e 's\|before\|after\|ig' filename
		+
		+	;-p : Execute the command for every line of the file.
		+	;-i : Invokes in place editing. If a backup extension is provided, a backup of the original file will be made with the extension provided. e.g. -i.bak.
		+	;-e : Invoke command.

	==Perl one-liners==		==Perl one-liners==

@@ Line 180: / Line 180: @@
 *Change a FASTA file into tabular format:
-  perl -e '$count=0; $len=0; while(<>){s/\r?\n//;s/\t/ /g;if(s/^>//){if($. !=1){print "\n"}s/ |$/\t/;$count++;$_ .="\t";}else{s/ //g;$len +=length($_)}print $_;}print "\n";' foo.fsa >foo.tab
+  perl -e '$count=0;$len=0;while(<>){s/\r?\n//;s/\t/ /g;if(s/^>//){ \
 *Change a tabular file into FASTA format:
-  perl -e '$len=0;while(<>){s/\r?\n//;@F=split /\t/,$_;print ">$F[0]";if(length($F[1])){print" $F[1]"}print "\n";$s=$F[2];$len+=length($s);$s=~s/.{60}(?=.)/$&\n/g;print "$s\n";}' foo.tab >foo.fsa
+  perl -e '$len=0;while(<>){s/\r?\n//;@F=split /\t/,$_;print ">$F[0]"; \
 *Change from one biological format to another:
-  perl -MBio::SeqIO -e '$informat="genbank";$outformat="fasta";$count=0;for $infile (@ARGV){$in=Bio::SeqIO->newFh(-file =>$infile, -format =>$informat);$out=Bio::SeqIO->newFh(-format =>$outformat);while(<$in>){print $out $_;$count++;}}' foo.gbk >foo.fsa
+  perl -MBio::SeqIO -e '$informat="genbank";$outformat="fasta";$count=0; \
 ==Arrays as Queues==

@@ Line 154: / Line 154: @@
 ==Average numbers==
 A program that reads numbers and outputs the average. Here is one such program:
-   #!/usr/bin/perl -w
+ #!/usr/bin/perl -w
-   use strict;
+ use strict;
-   my $line;
+ my $line;
-   my $sum=0;
+ my $sum=0;
-   my $n=0;
+ my $n=0;
-   while(defined($line=<STDIN>)){
+ while(defined($line=<STDIN>)){
-     $sum+=$line;
+   $sum+=$line;
-     $n++;
+   $n++;
-−
+ }
-   my $average=$sum/$n;
+ my $average=$sum/$n;
-   print "The average is $sum/$n = $average\n";
+ print "The average is $sum/$n = $average\n";
 ==External links==

@@ Line 80: / Line 80: @@
 *Simple example:
-   #!/usr/bin/perl -w
+ #!/usr/bin/perl -w
-   use strict;
+ use strict;
-   my $text = 'some cheese';
+ my $text = 'some cheese';
-   $text =~ tr/ce/XY/;
+ $text =~ tr/ce/XY/;
-   print "$text\n";
+ print "$text\n";
 *More examples:
-   $x =~ tr/a/b/;          # replace each "a" with a "b".
+ $x =~ tr/a/b/;          # replace each "a" with a "b".
-   $x =~ tr/ /_/;          # convert spaces to underlines.
+ $x =~ tr/ /_/;          # convert spaces to underlines.
-   $x =~ tr/aeiou/AEIOU/;  # capitalise vowels.
+ $x =~ tr/aeiou/AEIOU/;  # capitalise vowels.
-   $x =~ tr/79/97/;        # exchange "7" and "9".
+ $x =~ tr/79/97/;        # exchange "7" and "9".
 The only characters that have special meaning to "tr///" are the backslash and the dash. The latter indicates a range of characters:
-   $x =~ tr/0-9/QERTYUIOPX/; # Digits to letters.
+ $x =~ tr/0-9/QERTYUIOPX/; # Digits to letters.
-   $x =~ tr/A-Z/a-z/;        # Convert to lowercase.
+ $x =~ tr/A-Z/a-z/;        # Convert to lowercase.
 Actually, the slash also has a special meaning to "tr///". The slash is called the "delimiter", because it indicates the "limit" on the list of characters to substitute. However, we can use most kinds of punctuation in place of the slash. For example:
-   $x =~ tr!aeiou!AEIOU!;
+ $x =~ tr!aeiou!AEIOU!;
-   $x =~ tr:aeiou:AEIOU:;
+ $x =~ tr:aeiou:AEIOU:;
 Note that we can also use parentheses, but the syntax changes a little because parentheses include the idea of containment:
-   $x =~ tr(aeiou)(AEIOU);
+ $x =~ tr(aeiou)(AEIOU);
-   $x =~ tr<aeiou><AEIOU>;
+ $x =~ tr<aeiou><AEIOU>;
 The semantics (meaning) don't change; only the syntax (way of writing it) changes. But even though the delimiter is arbitrary, we still talk about it as "tr///".
@@ Line 111: / Line 111: @@
 "tr///" returns the number of replacements it made:
-   my $salary = '$1,000,000.00';   # Dollar sign: use single quote!
+ my $salary = '$1,000,000.00';   # Dollar sign: use single quote!
-   my $ego = ($salary =~ tr/0/0/); # Count the zeros in salary.
+ my $ego = ($salary =~ tr/0/0/); # Count the zeros in salary.
 One more thing: "tr///" has an alias: "y///". This is to please users of [[sed]], which uses the "y///" command do to basically what "tr///" does. In Perl, "tr///" and "y///" do exactly the same thing; use whichever you like. Remember: there is more than one way to do it (TIMTOWTDI).
-   $text =~ tr/0-9/A-J/;   # Convert digits to letters.
+ $text =~ tr/0-9/A-J/;   # Convert digits to letters.
-   $text =~  y/0-9/A-J/;   # Does exactly the same thing.
+ $text =~  y/0-9/A-J/;   # Does exactly the same thing.
 ===Options===
 "tr///" can take the following options:
-   c   # complement (invert) the search-list.
+ c   # complement (invert) the search-list.
-   d   # delete found but un-replaced characters.
+ d   # delete found but un-replaced characters.
-   s   # squash duplicate replaced characters.
+ s   # squash duplicate replaced characters.
 These options are specified after the final delimiter, like this:
-   $x =~ tr/abc/xyz/s;    # Note the "s" at the end.
+ $x =~ tr/abc/xyz/s;    # Note the "s" at the end.
-   $x =~ tr(abc)(xyz)s;   # Same thing, but with parentheses.
+ $x =~ tr(abc)(xyz)s;   # Same thing, but with parentheses.
-   $x =~ tr/abc/xy/ds;    # Multiple options.
+ $x =~ tr/abc/xy/ds;    # Multiple options.
-   # In the last case, the "z" is missing. You'll see why shortly.
+ # In the last case, the "z" is missing. You'll see why shortly.
 In the last example, we specified both the "d" and the "s" options. The order of the options is not important (i.e., "sd"="ds").
 *Examples:
-   #!/usr/bin/perl -w
+ #!/usr/bin/perl -w
-   use strict;
+ use strict;
-−
-   ##### The "s" option #####
+ ##### The "s" option #####
-   my $text = 'good cheese';
+ my $text = 'good cheese';
-   $text =~ tr/eo/eu/s;
+ $text =~ tr/eo/eu/s;
-   print "$text\n";
+ print "$text\n";
-   # Output is: gud chese
+ # Output is: gud chese
-−
-   ##### The "d" option #####
+ ##### The "d" option #####
-   my $big = 'vowels are useful';
+ my $big = 'vowels are useful';
-   $big =~ tr/aeiou/AEI/d;
+ $big =~ tr/aeiou/AEI/d;
-   print "$big\n";
+ print "$big\n";
-   # The first three vowels are made uppercase.
+ # The first three vowels are made uppercase.
-   # The other two, which have no replacement
+ # The other two, which have no replacement
-   # character, are deleted because of the "d".
+ # character, are deleted because of the "d".
 ==Average numbers==

@@ Line 75: / Line 75: @@
   # prints "E" if that substr is A-Z
   # else prints "_"
 ==External links==

@@ Line 70: / Line 70: @@
 *command-line that prints the last 50 lines (expensively)
   perl -e '@lines = <>; print @lines[ $#lines .. $#lines-50' f1 f2 f3 ...
 ==External links==

@@ Line 74: / Line 74: @@
 *[http://www.ibm.com/developerworks/linux/library/l-p101/ Cultured Perl: One-liners 101]
 *[http://www.ibm.com/developerworks/linux/library/l-p102.html Cultured Perl: One-liners 102]
 [[Category:Scripting languages]]