01:26:36
|
#35 0x23
#!/usr/bin/perl -w 106+ 7 113 2835 32 0x20
# ЧÑениlocal $/;·Ð¼ÐµÐ½ÐµÐ½Ð¸Ðµ кодиÑовки ÑодеÑжимого diff-Ñайла
# open (F, "$file")
sub load_diff_fior return "Can't open file $file ($_[0]) for reading";иÑикаÑии Ñайла
# my $text = <F>;
if ($Config{"encoding"} && $Config{"encoding"} !~ /^utf-8$/i) {
use my $converter = Text::Iconv->new($Config{"encoding"}, "utf-8");
e POSImy $template = "*.diff";Files{$file}->{tell}
}
close(F);
use Time $diff{"text"}=$text; ;
my $i=0; ´ÐµÐ¼Ð¾Ð½Ð° -- пÑоÑеÑÑ Ð¿Ð¾Ð»ÑÑил Ñигнал о завеÑÑении
$diff{"path"}=$path;
et$diff{"bind_to"}="";
$diff{"time_range"}=-1;$file});
sub init_var$diff{"index"}=$i;
y %diff;
$Diffs{$file} = \%diff; local_session_id})\n";
$i++;
}
} ;µÐ½Ð¸ diff-Ñайла
sub load_diff_files;# ÐнÑоÑмаÑÐ¸Ñ Ð¾ позиÑиÑÑ
в ÑкÑипÑ-ÑайлаÑ
,
} ¸ ÑодеÑжимого diff-Ñайла
sub bind_diff;
$diff{"sec"}=$4 || 0;9]?[0-9]?)[^/]*?([0-9]*):([0-9]*):?([0-9]*)@) {
sub extract_commands_from_cline;
sub load_command_lines;
sub sort_command_lines;
sub print_command_lines;
sub printq;
sub save_cache_stat;
sub load_cache_stat;
sub print_session;
([0-9]+)[\#] # history line number
if ($Config{"encoding"} && $Config{"encoding"} !~ /^utf-8$/i);
([0-9]+)[\#] # uid
} [0-9]+)[\#] time
print "Parsing lab scripts...\n" if $Config{"verbose"} =~ /y/;put"})) {
(.*?)[\#] # nonce
pt
(.*)mand =~ s/\s*sud # command line
my $file; "}-$min)*60 + ($diff->{"sec"}-$sec);
} '; ¾Ð·Ð²ÑаÑиÑÑ Ñ
ÑÑ, ÑодеÑжаÑий
my $skip_info; x;
( killing symbols
)3[\#] # version
my $commandlines_loaded =0;
'cols' => $Config{"terminal_width"},
my $commandlines_processed =0; {"terminal_height"});Ðо Ð¾Ð´Ð½Ð¾Ð¼Ñ Ð½Ð° каждÑй ÑеанÑ
# uid
my $converter = Text::Iconv->new($Config{"encoding"}, "utf-8")
my @lab_scripts = <$lab_scripts_path/$lab_scripts_mask>;r ÑколÑÐºÑ diff'Ñ Ð¼Ð¾Ð³Ð»Ð¸ обÑазоваÑÑÑÑ ÑолÑко ÑÑо
if ($Config{"encoding"} && $Config{"encoding"} !~ /^utf-8$/i);
my $cline_re = qr/$cline_re_base/sx;
([0-9]+)[\#] # exitcode || $Config{"input"})) {
|