kamil

#!/usr/bin/perluse strict;use warnings;use File::ReadBackwards;if (@ARGV != 2){    die "[input_file] [string]";}my $bw = File::ReadBackwards->new($ARGV[0]) or die "can't read $ARGV[0] $!";my $str = $ARGV[1];my @array = ();while(my $line = $bw->readline){    if ($line =~ /$str/)    {	$array[$#array + 1] = $line;    }    elsif ($line =~ /mageia_svn/ && $#array > 0) #that line contains file name "mageia_svn/..."    {	print $line;	print @array;	print "\n";	$#array = 0;    }}