Бегом марш!
Из двух вариантов, одинаковых по сложности написания, надо выбирать тот, что шустрее работает. В перле скорость выполнение можно замерить средствами модуля 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... )
#!/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... )
Comments 3
Reply
Reply
(The comment has been removed)
Reply
Leave a comment