Портирование Perl скрипта под старый Perl-5.8.8

0

1

Добрый день! Я не знаю Perl, но очень нужно заставить небольшой скрипт, который работает под Perl-5.14, заставить работать под стареньким Perl-5.8.8. По вставке отладочных сообщений нашел что не отрабатывает строка с:

my ($fn, $type, $sym) = /^$inpdll:(.*?):\S+\s+(\S)\s+(\S+)$/o;

Есть мысли по поводу как это заставить работать под стареньким Perl?

Вот примеры строк которые обрабатываются в цикле: /usr/i686-pc-msys/mydll.a:d000125.o:00000000 T __acltotext32

/usr/i686-pc-msys/mydll.a:d000125.o:00000000 I __imp___acltotext32

Должно получиться:

fn = T type = __acltotext32 sym = d000125.o

Ссылка

←	Вопрос касающийся оплаты труда программиста

QSslCertificate сравнение

→

#!/usr/bin/perl 

use strict;
use warnings;


my $str = '/usr/i686-pc-msys/mydll.a:d000125.o:00000000 T __acltotext32';

$str =~ /^.+:([^:]+):\d+\s+(\w)\s+(\w+)$/;

print "$1, $2, $3\n";