Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/perl/bin/perl.exe -w
- use strict;
- my $username = 'zacko';
- my $password = 'zakar12as';
- my $database = 'smash';
- open(SELECT,qq{mysql -u root -p$password $database -e
- "SELECT * from users" |}) or die $!;
- my @results = <SELECT>;
- close SELECT;
- print @results;
Add Comment
Please, Sign In to add comment