—#!/usr/bin/perl
use
strict;
our
$VERSION
=
sprintf
"%d.%02d"
,
q$Revision: 1.2 $
=~ /(\d+)/g;
sub
usage {
q{lsf [OPTIONS].. DIR..
List files.
-h help
-a show all, including hidden
-v version
Try 'man lsf' for more info.
}
};
@ARGV
or
push
@ARGV
,
'.'
;
for
(
@ARGV
){
-d
$_
or
warn
(
"Arg is not dir: '$_'\n"
) and
next
;
map
{
"$_\n"
}
$opt_a
? lsf(
$_
) :
grep
{ !/^\./ } lsf(
$_
);
}
__END__
=pod
=head1 NAME
lsf - List files.
=head1 USAGE
lsf [OPTIONS].. DIR..
-h help
-a show all, including hidden
-v version
=head1 SEE ALSO
lsutils - parent package
=head1 AUTHOR
Leo Charre leocharre at cpan dot org
=head1 COPYRIGHT
Copyright (c) 2009 Leo Charre. All rights reserved.
=head1 LICENSE
This package is free software; you can redistribute it and/or modify it under the same terms as Perl itself, i.e., under the terms of the "Artistic License" or the "GNU General Public License".
=head1 DISCLAIMER
This package is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
See the "GNU General Public License" for more details.
=cut