9 lines
209 B
Perl
Executable file
9 lines
209 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# If argument does not exist: Create a new file
|
|
|
|
my @files = grep { not /^-/ } @ARGV;
|
|
my @newfiles = grep { not -e $_ } @files;
|
|
@newfiles and system("touch",@newfiles);
|
|
exec 'loffice', @ARGV;
|