[Linux-Biella] Simulare AWK con Perl

[Daniele Segato]

2009/6/17 Daniele Segato <daniele.bilug a gmail.com>:
> con AWK trovo particolarmente comodo il poter definire dei separatori
> avere una stringa automaticamente suddivisa con quei separatori..
>
> di default AWK va di "spazi" ma si può configurare.

# perl --help

Usage: perl [switches] [--] [programfile] [arguments]
......
  -a              autosplit mode with -n or -p (splits $_ into @F)
.....................................
  -F/pattern/     split() pattern for -a switch (//'s are optional)
.................
  -n              assume "while (<>) { ... }" loop around program
  -p              assume loop like -n but print line also, like sed


quindi suppongo (non ho ancora provato) di poter fare qualcosa tipo:

#!/bin/perl -a -F/[ ,|]/

use strict;
use warning;

while(<>) {
    print "$F[1] split by space, comma or pipe $F[2]";
}


# tail -f /var/log/something | myPerlScript.perl



confermate?
ci sono modi migliori/più performanti?

considerate che lo script dovrebbe prendere il file di input come
parametro o, se specificato da opzione, dovrebbe pigliarsi lo standard
input.

il passo successivo sarà trovare come faccio a ottenere un risultato
simile a quello di getopt per gli script bash... :)
dopodiché posso partire a scrivere tutti gli script in perl e intanto
impararne per benino le funzionalità aggiuntive

lemmeknow
Ciao,
Daniele