################################################################################
use strict;
+use Getopt::Long;
my $grml_tips = '/usr/share/grml-tips/grml_tips';
+
+my $result = GetOptions (
+ "tipsfile=s" => \$grml_tips
+);
+
open (my $fh, '<', $grml_tips) or die "Could not open $grml_tips: $!";
my @tags;
push @tags, split(/[, ]+/, $1);
}
+close ($fh);
#make tags unique
my %seen = ();
@tags = grep { ! $seen{$_} ++ } @tags;
-print join("\n", @tags) . "\n";
+open (my $fh, '>', '/usr/share/grml-tips/tags')
+ or die "Could not open '/usr/share/grml-tips/tags' for writing: $!";
+print $fh join("\n", @tags) . "\n";
+close($fh)