Follow Techotopia on Twitter

On-line Guides
All Guides
eBook Store
iOS / Android
Linux for Beginners
Office Productivity
Linux Installation
Linux Security
Linux Utilities
Linux Virtualization
Linux Kernel
System/Network Admin
Programming
Scripting Languages
Development Tools
Web Development
GUI Toolkits/Desktop
Databases
Mail Systems
openSolaris
Eclipse Documentation
Techotopia.com
Virtuatopia.com
Answertopia.com

How To Guides
Virtualization
General System Admin
Linux Security
Linux Filesystems
Web Servers
Graphics & Desktop
PC Hardware
Windows
Problem Solutions
Privacy Policy

  




 

 

Debian GNU/Linux Reference Guide
Prev Home Next

8.6.20 La locura de los script cortos en Perl

Aunque todos los scripts en Awk se pueden reescribir autom�ticamente en Perl usando a2p(1), los scripts Awk de una sola l�nea en Awk se convierten mejor en scripts en perl de una l�nea en forma manual. Por ejemplo

     awk '($2=="1957") { print $3 }' |

es equivalente a cualquiera de las siguientes l�neas:

     perl -ne '@f=split; if ($f[1] eq "1957") { print "$f[2]\n"}' |
     perl -ne 'if ((@f=split)[1] eq "1957") { print "$f[2]\n"}' |
     perl -ne '@f=split; print $f[2] if ( $f[1]==1957 )' |
     perl -lane 'print $F[2] if $F[1] eq "1957"' |

Se pueden eliminar todos los espacios en los argumentos de perl de la l�nea anterior y tomar ventaja de la conversi�n autom�tica entre n�meros y cadena de caracteres que existe en Perl:

     perl -lane 'print$F[2]if$F[1]eq+1957' |

V�ase perlrun(1) para las opciones de la l�nea de comandos. Para m�s scripts delirantes en Perl, puede resultar interesante https://perlgolf.sourceforge.net.


Debian GNU/Linux Reference Guide
Prev Home Next

 
 
  Published under the terms of the GNU General Public License Design by Interspire