>Howdy,
>
>> i own a webserver and i have site on my
>> own PC. I want that the visitors on my
>> server website are able to see if my local PC
>> is online. I've got linux,apache and ISDN on
>> my own PC and i use a dyn dns tool so the
>> IP is not the problem (i've got a
>> somename.no-ip.com) a
ant i.e. a small image displayed on my
server website that tells me if this adress
is reachable or not. the website is a single
perl script so implementation is no problem
but it should be as fast as possible.
Any suggestions ?
Thanks in advance
Jaschar Otto
--
To unsubscribe, e-mail: [EMAIL PROT
erman i want to rename it to 'Datei'
without editing the tk module itself.
How can i change this ?
Thanks in advance
Jaschar Otto
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi
>\s is not one character, it stands usually for a whole character class!
>Do you mean an empty string ("") or just a blank (" ") instead?
i ment a blank (" ").
>character class negation works with [^...],
>in your case it would be
>$string =~ s/[^abcd]//g;
Thanks a lot, that worked perfect,
m
cd]//g;
but that doesn't work, maybe because
it recognizes ! not as negation but as
character...
so how to do it ?
thanks
Jaschar Otto
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Are all variables declared with my() || local() || etc ?
that would be my first guess, but without knowing the error message i cannot
guess more
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
sorry for my crappy english :-)
i'm tired, normally it's better but after 2 nights with less than 4 hours of sleep
i cannot really write logical sentences anymore ;-)
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
bdirectory 'subs' and several other stats
into 'subs/misc' (directorys must exist)
i'm just a newb and i'm always open for suggestions how to improve
things i made :)
yours
Jaschar Otto aka whoever
use strict;
my ($insub, $bracks);
my ($currs, $line);
my ($subnumb
>>> anil adenan <[EMAIL PROTECTED]> 30.05.2003 05:42:37 >>>
>Hello,
>I have a socket programming that is running smoothly in our clients
>HP UX version 10.20 machine. They are now migrating to a new server and
>HP UX 11.11. The problem is that the socket program is now not working.
>It gave th
() {
$line =~ m/some_regexp/; # get variables
$variables{$line} += 1;
}
close FILE;
for (keys %variables) {
print "$_ $variables{$_}\n";
}
This is an example of how i want to do it, any suggestions about how
to do the regexp to match several variables in one line, too ?
T
ok, that shouldn't be that hard if every line is in the same format.
open FILE,"somefile.log";
while () {
$string = $_;
$string =~ s/\[(\d{2})\/(\w{3})\/(\d{4}):(\d{2}):(\d{2}):(\d{2})\+\]//;
}
close FILE;
$1 is the day, $2 the month
$3 the year , $4 the hour
$5 the minutes, $6 the s
> Sakthivel <[EMAIL PROTECTED]> 28.05.2003 10:31:09 >>>
>Hi,
>Is there any command to encrypt the perl script code.
How about compiling it ? i don't know of any other possibility
to make it unreadable.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTE
hmm... i re-read what you wrote and i think i
guessed wrong in my first reply :-)
you've got a string like
abcdef[12/asdsad[32/asdas
and you want both numbers ?
you might be able to use :
$string = "abcdef[12/asdsad[32/asdas";
$i = 0;
while ($string =~ /\[(\d{2})\/) {
$string =~ s/\[(\d
>>> Ben Crane <[EMAIL PROTECTED]> 28.05.2003 13:24:28 >>>
>Anyone know how to match characters that occur within
>a set of other characters?
>e.g: [15/ I want the 15...get [15/ using /\[(\d{2}\/)/
>which is what it gives me, but I want to match
>starting/ending characters anywhere within a string
>
use Win32::OLE;
$wmi = Win32::OLE->GetObject ("winmgmts://$server/root/cimv2");
($harddisk) = (in $wmi->InstancesOf ('Win32_DiskDrive'));
$sectors = $harddisk->{TotalSectors};
$bytes = $harddisk->{BytesPerSector};
$total = $sect * $byte;
$total = $tota/1024;# B -> KB
$total = $tota/102
15 matches
Mail list logo
