Re^2: Need advice on how to break foreach parsing loop into functions

For expanding Anno's solution, you can use a dispatch table to apply the corresponding policy :

my %parsers = (
    'Ethernet' => sub {
        my $chunk = shift;
        $chunk =~ tr/\n/ /;
        return "ETHERNET: $chunk";
    },
    'Gigabit' => sub {
        my $chunk = shift;
        $chunk =~ tr/\n/ /;
        return "GIGABIT: $chunk";
    }
);

$/ = "!\n";
$\ = "\n";
while ( <DATA> ) {
    chomp;
    if ( /^interface (.*)/ && $1 && exists $parsers{$1} ) {
        print $parsers{$1}( $_ );
    } elsif ( /^system (.*)/ ) {
        # blah...
    }
}
[download]

Edit: As anonymous said, ( ) instead of { }. Copypasta from/to Firefox is treacherous.

Comment on Re^2: Need advice on how to break foreach parsing loop into functions Select or Download Code

Replies are listed 'Best First'.
Re^3: Need advice on how to break foreach parsing loop into functions by Anonymous Monk on Sep 16, 2007 at 17:22 UTC
the statement `my %parsers = { ... };` [download] seems wrong. should it not be `my %parsers = ( ... );` [download]	[reply] [d/l] [select]