Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 12 lines (8 sloc) 228 Bytes
#!/usr/bin/perl
use strict;
use Flexget::Parse;
use Flexget::PatternMatch;
my $log = "$ENV{HOME}/.local/share/flexget/flexget.log";
open(my $fh, '<', $log) or die($!);
chomp(my @new = flexparse(<$fh>));
print $new[-1], "\n";