Из двух вариантов, одинаковых по сложности написания, надо выбирать тот, что шустрее работает. В перле скорость выполнение можно замерить средствами модуля
Benchmark. Пробуем:
#!/usr/bin/perl -w
use strict;
use Benchmark qw(:all);
my $long = 'c_documents_and_settings_administrator_moi_dukumenty_files_very_very_very_long_name.doc';
my $short;
(
Read more... )