Opened by rk-ger at 2006-11-10 14:04
User since
2006-08-07
45 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-08-07
45 Artikel
BenutzerIn
Etwas so:
und so
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
###########################################
sub trim($) {
###########################################
my $string = shift;
$string =~ s/^\s+//;
$string =~ s/\s+$//;
return $string;
}
# und hier folgen weitere subs
1;
und so
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl
$ONE_DB = 's_stat';
$DB_HOST = 'localhost';
$DB_TYPE = 'DBI:mysql:'.$ONE_DB.':'.$DB_HOST;
$ONE_DB_USER = '########';
$ONE_DB_PASS = '########';
# weitere Konstaten
1;