Thread Perl Problem Code: PHP Code Umschreiben (24 answers)
Opened by Gast at 2006-02-19 09:40

zeus75
 2006-02-20 09:59
#6929 #6929
User since
2006-02-19
35 Artikel
BenutzerIn
[default_avatar]
moin moin,

kein problem. hier der anfang des codes! vielleicht hilft es dir ja weiter?

Code: (dl )
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
#!/usr/bin/perl
require CGI;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
use Time::Local;
use File::Spec;
use Fcntl qw(:flock);
use URI;
#use XML::Simple;
use CGI qw(:standard -no_debug);
require "konfiguration.txt";
require "text.txt";
$timeout=45;

my $cgi = new CGI;
my $state = $cgi->param("wmid");
my $sid = "773XXXXXX";

if ($state =~ m/773[0-9]{6,6}/) { }
else {$state =~ s/$state/$sid/}



# Nicht verändern
#########################################################


gruss\n\n

<!--EDIT|zeus75|1140422449-->

View full thread Perl Problem Code: PHP Code Umschreiben