Perl

[PERL] un equivalent en perl du awk ou cut en shell ??

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [PERL] un equivalent en perl du awk ou cut en shell ??

Tomate

salut,

je cherche une fonction perl qui me permette de couper simplement une ligne suivants les champs qu elle a
genre j ai : 1 2 3 4, et j aimerai faire comme avec awk et les print $1 ...

si klk un a une idee

:hello:

---------------
:: Light is Right ::

Publicité

Tomate

je crois ke split doit faire ca simplement
je regarde

---------------
:: Light is Right ::

pospos

ouai:
@tab = split(/ /, $cahine);

si tu n'a mis que 3min à voir ce qu'il fallait faire apres avoir posté ton message c'est que tu n'avais pas vraiment besoin de le poster, non?

Tomate

pospos a écrit :

ouai:
@tab = split(/ /, $cahine);

si tu n'a mis que 3min à voir ce qu'il fallait faire apres avoir posté ton message c'est que tu n'avais pas vraiment besoin de le poster, non?

bah en fait je connais pas trop les fonctions existantes en perl

la syntaxe ca va vu que ca ressemble au C, mais les fonctions je les connais pas

---------------
:: Light is Right ::

pospos

voila les fonctions:
http://www.enstimac.fr/Perl/DocFr/perlfunc.html

je te conseil de te procurer perl in a nutshell ou programming perl (ou le cookbook)
ils existent en version electronique, et il arrive meme qu'ils trainent sur quelques ftp d'universités

burgergold

5$? va chez l'diable!

pospos a écrit :

si jamais tu sais ou je peux me les procurer (nutshell entre autre), ca serait sympa de me refiler l'adresse

---------------
http://www.boincstats.com/signature/user_664861.gif

Tomate

pospos a écrit :

merci bcp, c est un lien plus que necessaire :jap:

---------------
:: Light is Right ::

pospos

pour les trouver c'est facile: tu quote une phrase d'un des bouquins (genre les chapitres demos sur le site d'orelly) et tu fait une recherche entre "" sur google...

avec un peu de chance ca marche

pospos

tomate77 a écrit :

merci bcp, c est un lien plus que necessaire :jap:

apres si tu veux retrouver rapidement la doc d'une fonction tu fait, en ligne de commande:

perldoc -f non_de_la_fonction

et ca te ressort le bout de perfunc correspondant

Tomate

pospos a écrit :

apres si tu veux retrouver rapidement la doc d'une fonction tu fait, en ligne de commande:

perldoc -f non_de_la_fonction

et ca te ressort le bout de perfunc correspondant

cool c est genial ca

---------------
:: Light is Right ::

Publicité

pospos

tiens, j'avais fait une petite version en Tk plus simple à utilser (et un peu porcho), et qui peu aussi chercher dans les faq ou directement dans les pod des modules (en indiquant le nom complet du module, si il est installé):

Code :

#!/usr/bin/perl
use strict;
use Tk;
use Tk::ROText;
use Tk::Radiobutton;
use Tk::Font;
$|=1;
my $mw = tkinit();
my $search;
my $instruction = 'f';
my $wEntry = $mw->Entry(
-width => 50,
-font => $mw->Font(-size => 14),
-textvariable => \$search,
)->grid(-row => 0, -column => 0);
$mw->Button(
-width => 20,
-text => 'search',
-command => \&search,
)->grid(-row => 0, -column => 1);
$mw->Radiobutton(
-width => 20,
-anchor => 'w',
-variable => \$instruction,
-value => 'f',
-text => 'functions',
)->grid(-row => 1, -column => 1);
$mw->Radiobutton(
-width => 20,
-anchor => 'w',
-variable => \$instruction,
-value => 'q',
-text => 'FAQ',
)->grid(-row => 2, -column => 1);
$mw->Radiobutton(
-width => 20,
-anchor => 'w',
-variable => \$instruction,
-value => 't',
-text => 'Pod',
)->grid(-row => 3, -column => 1);
my $wText = $mw->Scrolled(
'ROText',
-scrollbars => 'se',
-font => $mw->Font(-size => 14),
-width => 80,
-height => 30,
-wrap => 'none',
)->grid(-row => 20, -column => 0, -columnspan => 2);
$mw->bind("<KeyPress-Return>" => \&search);
tie(*STDOUT, 'Tk::ROText', $wText);
tie(*STDERR, 'Tk::ROText', $wText);
$wEntry->focus;
MainLoop;
sub search {
printH($search);
my $result = `perldoc -$instruction $search`;
if (length($result)) {
print $result;
} else {
print "Empty";
}
print "\n\n";
}
sub printH {
my $msg = join('', @_);
my $symbol = "#";
print "\n";
print $symbol x (length($msg) + 6);
print "\n$symbol$symbol ", $msg, " $symbol$symbol\n";
print $symbol x (length($msg) + 6);
print "\n";
}

Tomate

merci mais ca ira

:hello:

---------------
:: Light is Right ::

FORUM HardWare.fr

Programmation

Perl

[PERL] un equivalent en perl du awk ou cut en shell ??

Sujets relatifs
[Perl] Fonction avec paramètres optionnels	[perl] est ce correct ??
[shell]generation automatique de vraiable	[shell] le double $
[C] implementation shell unix (fork, pipe)	interfacer du perl en c++
Equivalent GOTO	[Perl] Besoin d'un ti coup de pouce pour une regexp
Pb perl	[perl] Faire une page d'attente en CGI
Plus de sujets relatifs à : [PERL] un equivalent en perl du awk ou cut en shell ??

Page générée en 0.056 secondes