Split() Will net wie ich will :(: @$out1 = split(/\^/, $in); <--? - #68317 (Allgemeines zu Perl)

Ronnie

2006-07-22 02:10

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

Verwende use strict; und use warnings; dann siehst du auch wo die Fehler in deinem Skript stecken.

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

my $in      = 'srd^1|name|mail@mail.com^dsff';
my @out1    = split(/\^/, $in);
my @out2    = split(/\|/, $out1[1]);

print $out2[0] . " " . $out2[1] . " " . $out2[2];

EDIT: Alternative

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

my $in = 'srd^1|name|mail@mail.com^dsff';
print join ' ', (split (/[\^\|]/, $in))[1..3];

\n\n