|< 1 2 >| | 17 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
10
11
package Perl::Community::DE;
sub user{
my ($nick) = @_;
if($nick eq 'webmaster'){
$nick = 'Strat';
}
return $nick;
}
1;
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
use strict;
use warnings;
use Perl::Community::DE;
my $check = Perl::Community::DE::user('Strat');
my $user = Perl::Community::DE::user('webmaster');
if($user eq $check){
print "webmaster eq strat";
}
|< 1 2 >| | 17 Einträge, 2 Seiten |