/usr/bin/sqlrw is in libsql-reservedwords-perl 0.8-2.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 | #!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if 0; # not running under some shell
use strict;
use warnings;
use vars '$VERSION';
$VERSION = '0.8';
use Getopt::Long qw[];
Getopt::Long::Configure( "no_ignore_case" );
Getopt::Long::Configure( "bundling" );
Getopt::Long::GetOptions(
'v|verbose' => \( my $verbose = 0 ),
'h|help|?' => sub { usage( -verbose => 1 ); exit; },
'H|man' => sub { usage( -verbose => 2 ); exit; },
'V|version' => sub { version(); exit; },
) or exit 1;
my $word = shift(@ARGV)
or usage( "$0: missing word\n" );
my @check = (
'ANSI/ISO SQL' => 'SQL::ReservedWords',
'DB2' => 'SQL::ReservedWords::DB2',
'MySQL' => 'SQL::ReservedWords::MySQL',
'ODBC' => 'SQL::ReservedWords::ODBC',
'Oracle' => 'SQL::ReservedWords::Oracle',
'PostgreSQL' => 'SQL::ReservedWords::PostgreSQL',
'SQLite' => 'SQL::ReservedWords::SQLite',
'SQL Server' => 'SQL::ReservedWords::SQLServer',
'Sybase' => 'SQL::ReservedWords::Sybase'
);
my @reserved_by = ();
while ( my ( $name, $package ) = splice( @check, 0, 2 ) ) {
eval "require $package;";
die $@ if $@;
if ( $package->is_reserved( $word ) ) {
push @reserved_by, $verbose ? $package->reserved_by($word) : $name;
}
}
my $reserved_by = join "\n ", @reserved_by;
print <<REPORT;
Word '$word' is reserved by:
$reserved_by
REPORT
sub usage {
require Pod::Usage;
Pod::Usage::pod2usage( @_ );
}
sub version {
printf "sqlrw v%s\n", $VERSION;
}
__END__
=head1 NAME
sqlrw -- Reserved SQL words by standard and vendors.
=head1 SYNOPSIS
sqlrw [options] word
Options:
-v, --verbose Display versions
-h, --help Display this help
-H, --man Longer manpage
-V, --version Display version info
=head1 AUTHOR
Christian Hansen C<chansen@cpan.org>
=head1 COPYRIGHT
This program is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
|