perl -e

serge.john.swilting wrote:

connaissez vous des exemples de one liner
je commence à les utiliser de plus en plus
et je manque d inspiration

j essaye d utiliser des perl -e à l interieur de mes scripts
mais je manque de docs
meme de la docs vraiment farfelues ça peut surrement m aider

Je ne vois pas vraiment l'interet de mettre des perl -e à l'interieur
des scripts perl ... étant donné que perl -e est justement une option de
ligne de commande pour ne pas avoir a créer un fichier.

voila j aimerais ecrire une perl -e
qui puisse compter le nombre de ligne d un fichier
et avec split avec les separateur d enregistrement normal
creer un tableau de toute les lignes du fichier
a
avec @tab[0]= premiere ligne du fichier

$ perl -e 'open FICH,"<fichier"; my $i=0; foreach (<FICH>) { $i++; }
print $i;'

Sinon, et bien plus drole:
$ perl -e 'print `wc -l fichier`;'


A+

Thibault

$ perl -e 'open FICH,"<fichier"; my $i=0; foreach (<FICH>) { $i++; } close FICH; print $i;'

avec le close c'est mieux :)

Thibault a écrit:

serge.john.swilting wrote:

j essaye d utiliser des perl -e à l interieur de mes scripts
mais je manque de docs
meme de la docs vraiment farfelues ça peut surrement m aider

Je ne vois pas vraiment l'interet de mettre des perl -e à l'interieur
des scripts perl ... étant donné que perl -e est justement une option de
ligne de commande pour ne pas avoir a créer un fichier.

Euh...? parce que c'est le principe du "one liner", d'utiliser perl en
ligne de commande?

$ perl -e 'open FICH,"<fichier"; my $i=0; foreach (<FICH>) { $i++; }
print $i;'

Sinon, et bien plus drole:
$ perl -e 'print `wc -l fichier`;'

Ca a sûrement été golfé auparavant (y compris ici), mais...
perl -lp0e '$_=y/n//'

--
Ronan

serge.john.swilting a écrit:

connaissez vous des exemples de one liner
je commence à les utiliser de plus en plus
et je manque d inspiration

"My presumption is Google is not on your version of the internet.
You may have to switch servers or sign up for AOL."
Purl Gurl

http://www.google.com/search?q=perl%20one%20liners

Sinon, BooK a écrit un article sur le sujet dans linux mag 49 ou 50.

--
Ronan

Because you can't just make shit up and expect the computer to magically
know what you mean, Retardo!
Mark-Jason Dominus

serge.john.swilting wrote:

connaissez vous des exemples de one liner
je commence à les utiliser de plus en plus
et je manque d inspiration


par avance merci

j essaye d utiliser des perl -e à l interieur de mes scripts
mais je manque de docs
meme de la docs vraiment farfelues ça peut surrement m aider

connaissez vous des exemples de one liner
je commence à les utiliser de plus en plus
et je manque d inspiration


par avance merci

http://articles.mongueurs.net/magazines/linuxmag50.html

rien à ajouter

serge.john.swilting wrote:

serge.john.swilting wrote:

connaissez vous des exemples de one liner
je commence à les utiliser de plus en plus
et je manque d inspiration


par avance merci

j essaye d utiliser des perl -e à l interieur de mes scripts
mais je manque de docs
meme de la docs vraiment farfelues ça peut surrement m aider

voila j aimerais ecrire une perl -e
qui puisse compter le nombre de ligne d un fichier
et avec split avec les separateur d enregistrement normal
creer un tableau de toute les lignes du fichier
a
avec @tab[0]= premiere ligne du fichier

Thibault wrote:


plus precis j ecrit des perl -en avec des ` `
je crois que c pas mal rapide
ultra peu portable

et je trouve que dans du texte ça fait une bonne litterature

serge.john.swilting wrote:

connaissez vous des exemples de one liner
je commence à les utiliser de plus en plus
et je manque d inspiration

j essaye d utiliser des perl -e à l interieur de mes scripts
mais je manque de docs
meme de la docs vraiment farfelues ça peut surrement m aider

Je ne vois pas vraiment l'interet de mettre des perl -e à l'interieur
des scripts perl ... étant donné que perl -e est justement une option de
ligne de commande pour ne pas avoir a créer un fichier.

voila j aimerais ecrire une perl -e
qui puisse compter le nombre de ligne d un fichier
et avec split avec les separateur d enregistrement normal
creer un tableau de toute les lignes du fichier
a
avec @tab[0]= premiere ligne du fichier

$ perl -e 'open FICH,"<fichier"; my $i=0; foreach (<FICH>) { $i++; }
print $i;'

Sinon, et bien plus drole:
$ perl -e 'print `wc -l fichier`;'


A+

Thibault

Laurent Wacrenier wrote:

Thibault <thibault_REMOVE_@Eulerian.com> écrit:

$ perl -e 'open FICH,"<fichier"; my $i=0; foreach (<FICH>) { $i++; }
print $i;'

Sinon, et bien plus drole:
$ perl -e 'print `wc -l fichier`;'

perl -nle 'END { print $. }' fichier
perl -le 'print scalar (@foo = <>)' fichier

j essaye presque de pouvoir faire un parser
en utilisant le moins possible les expressions regulieres

avec une utilisation massive de
push pop susbtr

serge.john.swilting wrote:

Laurent Wacrenier wrote:

Thibault <thibault_REMOVE_@Eulerian.com> écrit:

$ perl -e 'open FICH,"<fichier"; my $i=0; foreach (<FICH>) { $i++; }
print $i;'

Sinon, et bien plus drole:
$ perl -e 'print `wc -l fichier`;'

perl -nle 'END { print $. }' fichier
perl -le 'print scalar (@foo = <>)' fichier

j essaye presque de pouvoir faire un parser
en utilisant le moins possible les expressions regulieres

avec une utilisation massive de
push pop susbtr

je ne suis pas assez bon en c
mais les fichiers de nmap sont presque touds identiques
une personne pourrait peut etre m indiquer les fichiers sources du tarball
nmap
qui traitent de la creation du ficihier de sortie de nmap

genre

nmap -sT -O -I 127.0.0.1 | cat >output.txt

un peu hs je sais on frisse avec le c
mais je mis perds dans l ensemble des fichiers de nmap