Thread gutes Perl 5 Tutorial für Anfänger (42 answers)
Opened by lichtkind at 2010-12-30 23:55

topeg
 2011-01-04 17:30
#144052 #144052
User since
2006-07-10
2611 articles
BenutzerIn

user image
Bei so was bieten sich Kommandozeilenfilter an. Etwas der Art:

Code: (dl )
ps aux | filter_name.pl topeg

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
use strict;
use warnings;

my $such_name=$ARGV[0];
$such_name='root' unless($such_name);

# lese von STDIN
while(my $line=<STDIN>)
{
  # kopiere aus der Zeile die ersten Zeichen heraus
  # nimm noch ein Zeichen mehr um sicher zu stellen dass es der Name ist
  # und nicht der teil eines anderen der gleich anfängt.
  my $name=subtsr($line,0,length($such_name)+1);

  # wenn diese Zeichen gleich "$such_name " sind gib die Zeile aus
  print $line if($name eq $such_name.' ')
}


Da kann man sich sicher noch andere Sachen ausdenken.
Last edited: 2011-01-04 17:34:29 +0100 (CET)

View full thread gutes Perl 5 Tutorial für Anfänger