[Perl] Разбивка длинной строки

например /^(\w{2])(\w{10})(\w{5})$/

Спасибо, интересная мысль. Только вот два вопроса.

1. Регэксп будет довольно длинный — в строке зашифрованы показания около 40 датчиков. Не окажется ли обработка строки по регэкспу медленнее, чем явные вызовы substr?

2. (нубский вопрос) Можно пример использования регэкспов подобного рода? Я так понимаю, что результат преобразования должен присваиваться массиву. Я не перл-хакер, я только учусь :-)

substr будет быстрее

или аналог сишной функции scan

use String::Scanf;

($temp, $speed, $size) = sscanf('%4s %3s %5s','1234 123 12345');

Сорок вызовов substr или один вызов регексп - я не уверен, что будет быстрее, если честно.

Использовать регексп можно, например, так:

my $str = 'long_string';
$str =~ m/^(\w{2})(\w{10})(\w{5})$/;
printf "temp: %i; date: %s; pressure: %s", $1, $2, $3;

Другой вариант:

my $str = 'long_string';
my @arr = $str =~ m/^(\w{2})(\w{10})(\w{5})$/;
printf "temp: %i; date: %s; pressure: %s", @arr;

Большое спасибо, теперь все понятно! Попробую оба варианта — и с sscanf, и с регэкспом.

Если заранее известны длины строк, регэксп не нужен. Используйте unpack.

perldoc -f split

Интересно, как вы будете делать split следующей строки: «test1testtest255», длина первой части 5, второй 4, третьей 6, четвертой 1.

#!/usr/bin/perl

use strict;
use warnings;

my @array = "test1testtest255";

my $part1 = shift split /\w{5}/, @array;

my $part2 = shift split /\w{4}/, @array;

my $part3 = shift split /\w{6}/, @array; 

my $part4 = shift split /\w{1}/, @array;

код вбивал прям тут и не отлаживал, примерно так.

вы удачно подобрали себе аватарку :-)

Да уж...

идите нахер я спросонья

#!/usr/bin/perl

use strict;
split(/ */, 'test1testtest255');

my @part1 = @_[0..4];
my @part2 = @_[5..8];
my @part3 = @_[9..14];
my @part4 = @_[15];

print "@part1\n@part2\n@part3\n@part4\n";

hawaii-2% ./test.pl
t e s t 1
t e s t
t e s t 2 5
5

да согласен, через сплит велосипедно получается, красивее было бы через регекспы

Да, аватарка зачетная =)

@parts = unpack(«A5 A4 A6 A1», «test1testtest255»);

чо вы прикопались, я вообще вендузятнек

> @parts = unpack(«A5 A4 A6 A1», «test1testtest255»);

Спасибо, действительно there is mote than one way to do it :-) Я уже через регэксп сделал — работает вроде бы нормально.