]> Raphaƫl G. Git Repositories - carabistouilles/blob - analyse.pl
Rename analyse
[carabistouilles] / analyse.pl
1 #! /usr/bin/perl
2
3 # Best practice
4 use strict;
5 use warnings;
6
7 # Load POSIX
8 use POSIX qw(EXIT_SUCCESS EXIT_FAILURE);
9
10 # Load siren module
11 use lib::siren;
12
13 # Show usage
14 if (scalar(@ARGV) < 1) {
15 print "Usage: $0 sirens_fxt.txt\n";
16 exit EXIT_FAILURE;
17 }
18
19 # Test file
20 if (! -f $ARGV[0]) {
21 print "$ARGV[0] needs to be a valid file\n";
22 exit EXIT_FAILURE;
23 }
24
25 # Test file readability
26 if (! -r $ARGV[0]) {
27 print "$ARGV[0] needs to be readable\n";
28 exit EXIT_FAILURE;
29 }
30
31 # New siren object
32 my $siren = lib::siren->new();
33
34 # Parse data
35 $siren->parse($ARGV[0]);
36
37 # Show result
38 print $siren->show();
39
40 # Success
41 exit EXIT_SUCCESS;