best. Feld speichern (wie z.B. bei awk) - #107236 (Allgemeines zu Perl)

renee

2008-03-19 12:16

User since
2003-08-04
14371 Artikel
ModeratorIn

Als ausführlicheres Skript:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long;

GetOptions(
  '-F=s' => \my $delim,
  '-i=n' => \my $index,
);

$delim = " " unless defined $delim;
$index = 1   unless defined $index;

@ARGV = ($ARGV[-1]);

while( <> ){
    chomp;
    print +(split /\Q$delim\E/,$_ )[$index-1],"\n";
}

Aufruf:

Code: (dl )

test.pl -F "|" -i 4 beispiel.txt

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/