X-Git-Url: https://git.rapsys.eu/carabistouilles/blobdiff_plain/2d4f70e4bb6a29090deb7c6a5c412695257cec73:/analyse..7c4e60ceefdfe69cce5797a08816d8ee174f0461:/.highlight.css diff --git a/analyse b/analyse deleted file mode 100755 index 92eb375..0000000 --- a/analyse +++ /dev/null @@ -1,41 +0,0 @@ -#! /usr/bin/perl - -# Best practice -use strict; -use warnings; - -# Load POSIX -use POSIX qw(EXIT_SUCCESS EXIT_FAILURE); - -# Load siren module -use lib::siren; - -# Show usage -if (scalar(@ARGV) < 1) { - print "Usage: $0 sirens_fxt.txt\n"; - exit EXIT_FAILURE; -} - -# Test file -if (! -f $ARGV[0]) { - print "$ARGV[0] needs to be a valid file\n"; - exit EXIT_FAILURE; -} - -# Test file readability -if (! -r $ARGV[0]) { - print "$ARGV[0] needs to be readable\n"; - exit EXIT_FAILURE; -} - -# New siren object -my $siren = lib::siren->new(); - -# Parse data -$siren->parse($ARGV[0]); - -# Show result -print $siren->show(); - -# Success -exit EXIT_SUCCESS;