Thread Werte in Datei schreiben (CGI-Formular) (84 answers)
Opened by fred0815 at 2013-12-23 10:21

GwenDragon
 2013-12-23 11:12
#172684 #172684
User since
2005-01-17
14510 Artikel
Admin1
[Homepage]
user image
//EDIT: ungetestet

Code (perl): (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
26
27
28
29
30
31
32
33
34
#!/usr/bin/perl
use strict;
use warnings;

use CGI;
my $cgi = CGI->new;

my $param_IP = $cgi->param('IP'); # Hole den Parameter IP (=Inhalt der Textarea)

my @IP = split /\cM?\cJ/, $param_IP if defined($param_IP) and length($param_IP); # Teile mehrzeilige Einträge im Textfeld in einzelne Zeilen und speicher sie ins Array

my %IP; # Hash zum merken der IPs
open(my $fh,"<", ".htaccess") or die "Cant open .htaccess: $!"; # Datei zum Lesen öffnen
while (my $line = <$fh>) { # IP zeilenweise einlesen
  next if not $line =~ m|allow\s+from\s+(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\s*$|i; # ist keine numerische IP, dann weiter bei while
  $IP{$1}++;  # numerische IP merken
}
close($fh) or die "Cant close .htaccess: $!";

foreach my $IP (@IP) {
  $IP =~ s/[\cM\cJ]//g;    # entferne alle Zeilenenden
  next if not $IP =~ m|^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$|; # ist keine numerische IP
  $IP{$1}++;
}
use Fcntl qw(:flock);
open(my $fh,">", ".htaccess") or die "Cant open .htaccess: $!";
flock ($fh, LOCK_EX) or die "Cant lock .htaccess: $!"  # Datei sperren gegen mehrfache Schreibzugriffe
print $fh "allow from ",$_,"\n" for sort keys %IP;      # 
close($fh) or die "Cant close .htaccess: $!";


print $cgi->header(
  -status => '204 No Content',  # only HTTP header is in response
);


Editiert von GwenDragon: CGI, HTTP header, length/defined wg. leeren Parameter, split bei Zeilenenden auf verschiedenen OS; nur numerische IP; doppelte IPs vermeiden; $line hinzu, Leerzeichen vergessen
Last edited: 2013-12-23 14:08:09 +0100 (CET)
die Drachin, Gwendolyn


Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View full thread Werte in Datei schreiben (CGI-Formular)