suchen und ersetzen [vi]
2009-06-16 | 11:22 am | Kein Kommentar »
Suchen und ersetzten
34 abc
34″>abc
s/\(\d\d\)\s/\1″>/
-rw-r–r– 1 user user 1393 2009-01-26 16:04 Firewall.class
Firewall.class
s/^.*\(Fire\)/\1/
Pipe-Zeichen durch Zeilenumbruch ersetzen mit \r
s/|/\r/g
Links
ein Banner [perl]
2008-05-24 | 6:54 pm | Kein Kommentar »
Dateien nach Größe sortieren
2008-05-9 | 4:01 pm | Kein Kommentar »
Dateien nach Groesse sortieren
|
Dateien aussortieren
Die externe Festplatte fasst 320 GB. Die Dateien, die man drauf tun will, braeuchten jedoch 400 GB. Was tun? Man sortiert solange aus, bis es passt :)
More …
Command-Line Argumente @ARGV [perl]
2007-09-30 | 1:54 pm | Kein Kommentar »
Command-Line Argumente befinden sich in @ARGV
Command-Line Argumente befinden sich in @ARGV
Command-Line Argumente befinden sich in @ARGV
und nicht in ARVG oder sonstwoso :)
btw @ARGV ist von perl vordefiniert und benoetigt keine Deklaration.
:>
use Getopt::Std;
use Getopt::Long;
variablennamen $bla_eins, $bla_zwei, usw.
2007-08-10 | 1:47 pm | Kein Kommentar »
tataa
#!/usr/bin/perl @a = („eins“, „zwei“); foreach $b (@a) { $var = „bla_$b“; $$var = $b; } print „$bla_eins $bla_zwei“; |
Flags und Bit-Auswertung
2007-07-9 | 6:15 pm | Kein Kommentar »
Verwendungszweck:
Ein Objekt (x) gehört mehreren Kategorien (n) an
$n
$byte = (int) ($n/32) [=> 0,1, …]
$bit = $n%32 [Divisionsrest]
$query = „select .. from .. where .. (svc$byte & (1< <$bit)= (1<<$bit)“
1< <$bit = 2 ^ $bit
2^31 ist negativ in php deshalb Umweg!
n | 0 | 1 | 2 | 3 | 4 |
2^n | 1 | 2 | 4 | 8 | 16 |
x=6 | 0 | 1 | 1 | 0 | 0 |
x=9 | 1 | 0 | 0 | 1 | 0 |
Abfrage ob das bit in $x gesetzt ist: if ($x & (1 < < $n)) {…}
Bit n in einem best. $x setzten: $x |= (1 < < $n))
Beispiel: Uniqueitems (perl und javascript)
Ein Item kann mehreren Kategorien (n) angehören. Im perlscript, das das html erzeugt, wird jedes Item seinen Kategorien zugeordenet (das x wird erzeugt). Spaeter im html kann die Kategorie ausgewaehlt werden. Der javascript code sorgt dafuer, dass nur noch die Items dieser Kategorie angezeigt werden, d.h. es wird geschaut „ob das n im x steckt“. [Details siehe Quelltext]
zeitfunktionen
2007-07-7 | 7:15 pm | Kein Kommentar »
time, localtime, timelocal
time(): Sekunden seit 1.1.1970
localtime(time()), ohne Angabe von time = „jetzt“
Time::Local
perldoc Time::Local
timelocal(sek,min,std,tag,monat, jahr)
Monate: 0=Januar, 1=Februar … 11=Dezember
More …
embperl
2007-07-7 | 1:47 am | 1 Kommentar »
Installation von embperl und mod_perl
apt-get install lib-embperl-perl lib-mod-perl
http.conf
LoadModule perl_module /usr/lib/apache/1.3/mod_perl.so
Add Type text/html *.epl
<FILES *.epl>
SetHandler perl-script
PerlHandler Embperl
Options Exec CGI
</FILES>
=> apachectl restart bzw. /etc/init/apache restart :)
embperl
[+ $a +]
[- use BlaModule -]
[! Definition perlfkt !]
[* foreach $i (1,2) { *] [* } *]
[# Kommentar #]
[$ Cmd Arg $]
cpan
2007-07-6 | 10:38 pm | Kein Kommentar »
cpan perl modul installieren
dh-make-perl -cpan Soap::Lite
cd libsoap-lite-perl-0.5.6
debuild
cgi: Ausgabe von html
2007-07-6 | 7:36 pm | Kein Kommentar »
Wichtig: nach content-type kommen zwei Leerzeilen
#!/usr/bin/perl
print „Content-type: text/html \n\n“;
print qq(
<html>
<head>
<title>blablub</title>
</head>
<body>
blablub
</body>
</html>
);