Law enforcement is now intercepting text messages,
as proven by Operation Sudden Fall in San Diego.

http://www.usdoj.gov/dea/pubs/states/newsrel/sd050608.html
http://www.signonsandiego.com/news/education/20080506-1338-bn06sdsu2.html

Don't let your personal SMS/text messages fall into
the wrong hands. Encrypt your messages with one
of these:

http://www.CryptoSMS.org
http://www.CryptoSMS.com
http://www.FortressMail.net/fortress_sms.htm
http://www.Cop2p.com/encrypted_sms.html

Be Safe, Be Encrypted, Fuck the Police!!

Law enforcement is now intercepting text messages,
as proven by Operation Sudden Fall in San Diego.

http://www.usdoj.gov/dea/pubs/states/newsrel/sd050608.html
http://www.signonsandiego.com/news/education/20080506-1338-bn06sdsu2.html

Don't let your personal SMS/text messages fall into
the wrong hands. Encrypt your messages with one
of these:

http://www.CryptoSMS.org
http://www.CryptoSMS.com
http://www.FortressMail.net/fortress_sms.htm
http://www.Cop2p.com/encrypted_sms.html

Be Safe, Be Encrypted, Fuck the Police!!

viagra suisse par email
Achat Viagra Simple
acheter viagra canada concern

Hallo,

über einen Link rufe ich ein Perlscript auf

href="/homepage/verzeichnis.pl"

das ein Verzeichnis einlesen und im Webserver angezeigt werden soll

require "../include/html-helper";
html_header("Inhalt", "../css/inhalt.css");
html_body();

$dirname = "/Download";
print "$dirname\n";
opendir (DIR, $dirname) || die "can't opendir $dirname: $!";
@dir = readdir(DIR);
for $verz ( @dir ) {
print "\t $verz \n";
}
closedir DIR;

hi!

lässt sich die zusammenfassung einer mysql-abfrage

z.b. 8 rows in set (0.12 sec)

auslesen bzw in eine variable übernehmen?

greets
alex
-/\--

Hallo,

ich bin relativ neu in Perl und verstehe darum gerade vermutlich einfach
nicht so recht, was ich hier mache.

gegeben sei ungefähr folgendes:

use strict;
use LWP::Simple;
use HTML::TokeParser;

sub findtoken
{
my ($stream, @params) = @_;
my $found = 0;

while(my $cur_token = $stream->get_token()){
# alla Argumente durchgehen
my $param_hash;

foreach $param_hash ( @params ) {
my $key;

# alle Elemente des Hashes durchgehen
for $key (keys %%$param_hash){
my $value = $param_hash->{$key};

Hallo Perl-en,

ich habe eine komplexe Anwendung, die ein Memory leak zu haben
scheint. Zumindest steigt der Speicherbedarf während der Laufzeit
kontinuierlich, leider aber nicht in auch nur halbwegs
gleichbleibenden Sprüngen. Manchmal sind es nur ein paar Bytes, dann
wieder bis zu 2 kB oder mehr. Das klingt nicht nach viel, aber da das
Script während der Laufzeit tausende von Objekten bearbeiten soll,
macht das schon einiges aus. Ich weiß natürlich, daß Perl einmal
allokierten Speicher zurückbehält, aber ich denke, das allein ist es
nicht.

Ich bin dem guten Stück nun schon mit etlichen Devel:: Modulen zu
Leibe gerückt, aber mit ActivePerl hat man leider etwas schlechte
Karten. :( Eine andere Perl-Distribution (oder gar Linux) zu
verwenden, ist sicherlich eine gute Idee, aber leider auch mit sehr
viel Aufwand verbunden, weil ich Dutzende CPAN-Module compilieren
müßte, was sehr mühselig und zeitaufwendig ist. Bei Strawberry bin ich
an irgendeinem Modul gescheitert, das nicht compilieren wollte... ich
glaube es war DBD::mysql, aber nagelt mich bitte nicht drauf fest. ;)