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

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

Marsh Posté le 03-05-2004 à 10:14:27    

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 ::
Reply

Marsh Posté le 03-05-2004 à 10:14:27   

Reply

Marsh Posté le 03-05-2004 à 10:17:39    

je crois ke split doit faire ca simplement :)
je regarde ;)


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

Marsh Posté le 03-05-2004 à 10:31:59    

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?

Reply

Marsh Posté le 03-05-2004 à 10:50:26    

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 :D


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

Marsh Posté le 03-05-2004 à 11:10:34    

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

Reply

Marsh Posté le 03-05-2004 à 11:44:31    

pospos a écrit :

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


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


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

Marsh Posté le 03-05-2004 à 12:00:54    

pospos a écrit :

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

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


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

Marsh Posté le 03-05-2004 à 12:01:46    

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

Reply

Marsh Posté le 03-05-2004 à 12:03:12    

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

Reply

Marsh Posté le 03-05-2004 à 12:06:15    

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 ::
Reply

Marsh Posté le 03-05-2004 à 12:06:15   

Reply

Marsh Posté le 03-05-2004 à 12:14:29    

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 :
  1. #!/usr/bin/perl
  2. use strict;
  3. use Tk;
  4. use Tk::ROText;
  5. use Tk::Radiobutton;
  6. use Tk::Font;
  8. $|=1;
  10. my $mw = tkinit();
  12. my $search;
  13. my $instruction = 'f';
  15. my $wEntry = $mw->Entry(
  16. -width  => 50,
  17. -font  => $mw->Font(-size => 14),
  18. -textvariable => \$search,
  19. )->grid(-row => 0, -column => 0);
  21. $mw->Button(
  22. -width  => 20,
  23. -text  => 'search',
  24. -command => \&search,
  25. )->grid(-row => 0, -column => 1);
  27. $mw->Radiobutton(
  28. -width  => 20,
  29. -anchor  => 'w',
  30. -variable => \$instruction,
  31. -value  => 'f',
  32. -text  => 'functions',
  33. )->grid(-row => 1, -column => 1);
  35. $mw->Radiobutton(
  36. -width  => 20,
  37. -anchor  => 'w',
  38. -variable => \$instruction,
  39. -value  => 'q',
  40. -text  => 'FAQ',
  41. )->grid(-row => 2, -column => 1);
  43. $mw->Radiobutton(
  44. -width  => 20,
  45. -anchor  => 'w',
  46. -variable => \$instruction,
  47. -value  => 't',
  48. -text  => 'Pod',
  49. )->grid(-row => 3, -column => 1);
  51. my $wText = $mw->Scrolled(
  52. 'ROText',
  53. -scrollbars => 'se',
  54. -font  => $mw->Font(-size => 14),
  55. -width  => 80,
  56. -height  => 30,
  57. -wrap  => 'none',
  58. )->grid(-row => 20, -column => 0, -columnspan => 2);
  60. $mw->bind("<KeyPress-Return>" => \&search);
  61. tie(*STDOUT, 'Tk::ROText', $wText);
  62. tie(*STDERR, 'Tk::ROText', $wText);
  63. $wEntry->focus;
  65. MainLoop;
  67. sub search {
  68. printH($search);
  70. my $result = `perldoc -$instruction $search`;
  72. if (length($result)) {
  73.  print $result;
  74. } else {
  75.  print "Empty";
  76. }
  77. print "\n\n";
  79. }
  81. sub printH {
  82. my $msg = join('', @_);
  83. my $symbol = "#";
  84. print "\n";
  85. print $symbol x (length($msg) + 6);
  86. print "\n$symbol$symbol ", $msg, " $symbol$symbol\n";
  87. print $symbol x (length($msg) + 6);
  88. print "\n";
  89. }

Reply

Marsh Posté le 03-05-2004 à 12:15:08    

merci mais ca ira ;)
 
:hello:


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

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed