How to figure out Size of Var.

How can I figure out how many chars are stored in a variable? Or how can I determit the length of a string in a variable? this methode is a little poor: @array = split //, $var; $size = scalar (@array); Thanks -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail:

How to remove everything after the last . dot?

I have a line: i.like.donuts.but.only.with.tea now I want to remove everything that follows the last . including the last .. in this case .tea I hav absulte no idea. I tried something like: @parts = splite /\./, $line; $parts[-1] = undef; foreach $parts (@parts) { $newline .= $parts.;

AW: How to remove everything after the last . dot?

Hmmm... use strict; use warnings; my $a=i.like.donuts.but.only.with.tea; $a=~s/\.\w+$//; # maybe w+ not d+??? print $a, \n; Deutsche Telekom AG T-Com, Technische Infrastruktur Niederlassung Überregional Bastian Angerstein Network Support Center - Network Management Support Maybachstr.57; D

Moving Directories containing files (something more tricky)

Hello there, I have a tricky problem, I have some (alot) directories containing alot of files. I want to move the directory /xyz/123/ with all containing files to /xyz/abc/123. The source directory does not (or should not) contain subdirectories. Does anybody have something for me ? Thanks,

how to handle multiline feedback from backticksoperator?

Hello there, I have a cmd-PRogramm which produce multiline output. /usr/testdrive. I call this proggi from perl: `/usr/testdrive -e -k | grep /home`; This programm produce multiline Output, how do I get this into a variable or array ? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For

Example of hash and array movement correct?

Hello, I am looking for ways to move data between array and hashes. Does anybody has a better way or idea to do some of this: Example 1: @indatas = $datas [0 .. 4]; Example 2: $nkey = $dataln[3] . $dataln[4]; Example 3: $base{$bv[0]} = [ $bv[1], $bv[2], $bv[3], $bv[4] ];

How to add leading zeros?

Hello, I have some Numbers 1 2 3 40 51 and I want them to be in the format 001 002 003 ... 040 ... 051 ... What is the fastest way to do this?? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

AW: email reading script

try http://www.koders.com they have a lot of code to evaluate. -Ursprüngliche Nachricht- Von: vishwas bhakit [mailto:[EMAIL PROTECTED] Gesendet: Donnerstag, 25. November 2004 10:19 An: [EMAIL PROTECTED] Betreff: email reading script hello, I am working for email reading script in perl,

Sinus and PI in perl

Hello, in an excel sheet I use: =SIN((2*PI()/96)*1) =SIN((2*PI()/96)*2) etc... my question is how to get this function in perl? The Results are values (in the example max. 96) on the Y-Axes of the Sinuswave. BTW: I want to replace the 96 (measuringpoints) and the multiplication value with

AW: Reading from a filehandle in while-loop

Yes it should, but not on my system. Thanks for your comments. -Ursprüngliche Nachricht- Von: Bob Showalter [mailto:[EMAIL PROTECTED] Gesendet: Dienstag, 26. Oktober 2004 16:00 An: 'David le Blanc' Cc: [EMAIL PROTECTED] Betreff: RE: Reading from a filehandle in while-loop David le

Reading from a filehandle in while-loop

Why does this don´t work in my Script? open (TEST, /tmp/test.txt); while (TEST) { print $_; # or just print; } -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response

AW: Reading from a filehandle in while-loop

Joop, if I use open... or die $! i see that the file is opened correctly but nothing is in $_. -Ursprngliche Nachricht- Von: Flemming Greve Skovengaard [mailto:[EMAIL PROTECTED] Gesendet: Dienstag, 26. Oktober 2004 11:45 An: [EMAIL PROTECTED] Cc: Bastian Angerstein Betreff: Re

Perl/TK Development Suite/Gui

Hi, I am looking for a free (graphic) development tool for building perl/tk applications. It should run under AIX and/or Linux. If anybody knows a good tool, with something like a tk gui-painter tell me, please. Thanks Bastian -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional

can´t call method xyz on an undefined value at...

Good Morning, I, once again, have a question. How can I check if a Method is undefined or not without getting this error? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response

can´t call method xyz on an undefined value at...

Now I gate can´t call methode can on an undefined value xyz line xyz. Any Idea? -Ursprüngliche Nachricht- Von: Charles K. Clarkson [mailto:[EMAIL PROTECTED] Gesendet: Freitag, 3. September 2004 10:37 An: 'Bastian Angerstein'; 'Mailinglist Perl Beginners' Betreff: RE: can´t call method

Code in Variable ausführen?

Hello, is it possible to execute code that is within a var? like: $var = 'print Hallo Welt\n'; I had seen something like that in compination with eval... but I can´t remeber where and I can´t find that code anymore. Thanks Bastian -- To unsubscribe, e-mail: [EMAIL PROTECTED] For

__DATA__ Token Question

Hello, some weeks ago I had a question regarding The DATA-Token. Now there is anonther one: Could I change the contens of the datatoken (filehandle) during the runtime of the skript? If anyone has an idea I would be grateful. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional

AW: Counting characters in a thread

unless ($string =~ /%{0,10}/) { $string = undef; } -Ursprungliche Nachricht- Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Gesendet: Freitag, 9. Juli 2004 13:21 An: [EMAIL PROTECTED] Betreff: Counting characters in a thread $string =

RE: __DATA__ Token Problem

-Ursprüngliche Nachricht- Von: John W. Krahn [mailto:[EMAIL PROTECTED] Gesendet: Dienstag, 6. Juli 2004 06:37 An: Perl Beginners Betreff: Re: __DATA__ Token Problem On Monday 05 July 2004 05:07, Bastian Angerstein wrote: Hello, Hello, I have a few questions regarding to the DATA

__DATA__ Token Problem

that the __DATA__ section is empty? Deutsche Telekom AG T-Com, Technische Infrastruktur Niederlassung Überregional Bastian Angerstein Network Support Center - Network Management Support Maybachstr.57; D-70469 Stuttgart +49 711 8939 1889 (Tel.) +49 711 8939 6604 (Fax) mailto:[EMAIL PROTECTED] http://www.t

Socket or NetServer::generic???

Hello, there I am progarmming a client server passed solution. My Question here ist which Modul I should use. I already noticed that the IO::Socket and the NetServer::Generic are both easy to use. My question is does a IO::Socket server handle multiple clients or not? Thank you, Bastian --

POD anyone with a good example???

Hello there, does anyone have a good example for pod documented sourcecode. I would like to have some sort of example where I can start with. Thanks, Bastian -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

How to get Interface IP using perl?

How to get Interface IP (DailUp Interface with nonstatic ip) using perl? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response

How get a special value of an arrayfield stored in an hash?

I tought: $index = 1 $var = ${$myhash{mykey}}[$index]; would do the trick. But it don´t. Any suggestions? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response

Perl / Tk Gui Toolkit?

Hi has anybody expirience with GUI Toolkit for Perl/Kit? Which would you recommend for Solaris or Windows? Thanks Bastian -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response

Maybe Stupid RegEx Question

Hi I have two strings 0x1479ee und 0x1479fe. The strings a in $var1 and $var2. if I do: if ( $var2 =~ /\Q$var1\E/) It matches. how can I match an the string and not on each sign? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

AW: FW: special vars

It is important believe me. Especialy if you are writting to logfiles, databases and unix named pipes. If in this context buffered io is on it will happen that if you prints something to a file or anywhere not the whole line is dumped only the stuff what was in the buffer when the buffer was

How to sort hashkeys by numbersize??

I got the following Problem: My hashkeys looks like number:string . For example 10530:fileparameter-sa1 10529:fileparameter-mv1 10531:fileparameter-tx4 (without the signs...) I would like to sort the hashkeys by the number before the doublepoint. Any Idea? Thx,

Re: Re: How t o sort haskeys by numbersize??

Thank´s a lot people! Have a nice day, Bastian -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response

How to work with 64 Bit unsinged Intergers or Network formatted numbers.

Hello, I am working with SNMP and 64 Bit unsigned Intergers. To give you a view on the different possible values and types I come across: 2147483648 = 1000 = 8000 = 2^31 4294967296 = 1 = 1 = 2^32 4294967295 =