Auslesen aus .txt bis Trennzeichen, wie?: Auslesen aus .txt bis Trennzeichen, wie? - #59357 (Allgemeines zu Perl)

J-jayz-Z

2005-10-27 11:28

User since
2005-04-13
625 Artikel
BenutzerIn

[quote=Guest,26.10.2005, 12:09]Hab das schon mit substr probiert, geht aber glaub ich nicht, weil die Einträge ja immer unterschiedlich lang sind.[/quote]
Klar geht es, aber es ist aufwendig ;)

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;

my $name = 'Name von Firma1";1234567;"08001234567";"12"';

my $firmenname = substr($name, 0, index($name, ';')-1);
$name = substr($name, index($name, ';')+1, rindex($name, ';'));
my $nr1 = substr($name, 0, index($name, ';'));
$name = substr($name, index($name, ';')+1, rindex($name, ';'));
my $nr2 = substr($name, 1, index($name, ';')-2);
$name = substr($name, index($name, ';')+1, index($name, ';')-1);
my $last = substr($name, 1, index($name, ';'));

print $firmenname . "\n" . $nr1 . "\n" . $nr2 . "\n" . $last . "\n";

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de