Re: How do I check disk space through Perl?

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/1024;

RE: matching INSIDE characters (regexp)

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 and take the

RE: matching INSIDE characters (regexp)

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 =~

RE: encryption of perl script

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 PROTECTED]

Count variables in script

=~ 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 ? Thanks Jaschar Otto

Antw: Problem running the socket programming

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 the error

Little nonsense script stats script

subs into the subdirectory '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 ($subnumber); my

RE: bypassing use strict

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]

regexp

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]

Re: regexp

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, maybe i was

Perl-Tk Menuframe (maybe OT)

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]

Check if webserver is online

. 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 PROTECTED

RE: RE: Check if webserver is online

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) adress. I