forum.lissyara.su

Код: Выделить всё

 101    0058.BF00.04CE          Drop

Код: Выделить всё

#!/usr/bin/perl

use strict;
use warnings;

my $line = '101    0058.BF00.04CE          Drop';

$line =~ s/(\s+)/ /gi;

my ($vlan, $mac, $port) = split('\s', $line);

print "$vlan - $mac - $port\n";

Код: Выделить всё

my $line = ' 101    0058.BF00.04CE          Drop ';

Код: Выделить всё

use strict;
use warnings;

my $line = ' 101    0058.BF00.04CE          Drop ';

$line =~ s/^\s+//gi;
$line =~ s/\s+$//gi;

my ($vlan, $mac, $port) = split('\s+', $line);
print "$vlan - $mac - $port\n";