in reply to Removing digits until you see | in a string

You don't have to use a loop, either, if you're still not adverse to split. Just use a parallel assignment and throw away the other pieces.

my ( $index ) = split /\|/, $str;
$data_hash{$index} = $str;

[download]

Update: Or to remove the digits from the string, you can do this:

my ( $index, @rest ) = split /\|/, $str;
$data_hash{$index} = join '|', @rest;

[download]

Replies are listed 'Best First'.
Re^2: Removing digits until you see | in a string
by polettix (Vicar) on Jan 08, 2007 at 15:00 UTC
    In your update, you can block the split process to the first pipe char:
    my ($index, $rest) = split /\|/, $str, 2;
$data_hash{$index} = $rest;

    [download]

    Flavio
    perl -ple'$_=reverse' <<<ti.xittelop@oivalf

    Don't fool yourself.
[reply]
[d/l]

In Section Seekers of Perl Wisdom