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

[thread]8190[/thread]

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

Gast Gast

2006-07-22 00:44

Code: (dl )

#!/usr/bin/perl
my $in = "srd^1|name|mail@mail.com^dsff";
@$out1 = split(/\^/, $in);
@$out2 = split(/\|/, $out[1]);

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

Weiß wer, wieso der mir als Ausgabe nur " " macht? :(

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

View all threads created 2006-07-22 00:44.