Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 2
 |
|< 1 2 3 4 5 6 >| |  |
56 Einträge, 6 Seiten |
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
1
2
3
4
5
6
7
8
use Mysql;
my $DB_TABLE = "drow_dictionary";
my $LANG0 = "Drow";
my $LANG1 = "Common";
my $NOTES = "Notes";
my $dbh = "localhost";
[...]
![[Homepage]](/battie/theme/default/homepage.gif)
1
2
3
4
5
6
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
sub loadDictionary {
my( $DICTFILE ) = $_[0];
require FindBin ();
$DICTFILE = $FindBin::Bin . $DICTFILE;
Quote\n\n&loadDictionary( "words.txt" );
sub loadDictionary {
my( $DICTFILE ) = $_[0];
require FindBin;
$DICTFILE = $FindBin::Bin . $DICTFILE;
#sub loadDictionary {
# my( $DICTFILE ) = $_[0];
# my( @lines );
# Read in the dictionary into memory
print "Reading file '$DICTFILE'...";
open( DICTFILE, "$DICTFILE" ) || die( "Couldn't open file" );;
my( @filelines ) = <DICTFILE>;
close( DICTFILE );
foreach $line (@filelines) {
push( @lines, $line ) if( $line =~ m/\w/ );
}
@filelines = ();
open( DICTFILE, "$DICTFILE" ) || die( "Couldn't open file: $!" );
1
2
3
4
5
6
7
#!/usr/bin/perl
use FindBin;
use Cwd;
print "Content-type: text/plain\n\n";
print Cwd::getcwd," -- ",$FindBin::RealBin,"\n<br />";
|
|< 1 2 3 4 5 6 >| | |
56 Einträge, 6 Seiten |
![[Powered by Battie]](/battie/img/powered.png)
