Как убрать лишние пробелы в строке

[Podedinov]

Помогите кто может. Есть вот такая строка:

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

 101    0058.BF00.04CE          Drop

Надо убрать лишние пробелы и положить значения в 3 переменых ($vlan, $mac, $port).

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[thefree]

язык какой?

[Podedinov]

PERL

[thefree]

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

#!/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";

[Podedinov]

У меня тут вот так немножко:

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

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

В начале и в конце пробелы, как их можно вообще убрать

[hizel]

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

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";