Re: Checking for calling context

On Sat, Feb 14, 2004 at 08:19:20AM +0100, wolf blaum wrote: > If you are asking how to teel between: > $var=⊂ > and > ⊂ Pretty much, from the point of view of sub. > However, there is a way to tell who asked for the result: > read perldoc -f caller Not really what I want. > but why dont you pass

Re: Checking for calling context

> Hey there, Hi > I have a set of functions that send an XML element, wait for a response, > parse the response, and return it. However, there are often cases where > the resulting XML is never used, and so parsing it is pointless. Is > there a way that a sub can tell where the result is going to g

Checking for calling context

Hey there, I have a set of functions that send an XML element, wait for a response, parse the response, and return it. However, there are often cases where the resulting XML is never used, and so parsing it is pointless. Is there a way that a sub can tell where the result is going to go, so that

Re: Searching through a directory.

John Lin wrote: > Hi List, > > This is probably a really simple question, but I need some help with this. > Basically, I am searching through a directory and if something matches > what I am looking for, then save that filename to a text file. Something > like this: > ===

Re: perl and application server..

Joe Echavarria wrote: > Hi there, > > Is there a way to work with perl as a Java, What is "a Java" There is only one Java programming language, and Perl is a different language. If you mean a Java Applet, then no, Perl doesn't have any extensions for working inside a browser. You can post to

Re: Regarding Text Widget in Perl/Tk

Mike Flannigan wrote: > I> I think something is going wrong with your highlighting routine. Or perhaps this > is > > ot a Text widget? If left alone, the Text widget will offer full copy-and-paste > > functionality. > > > > f I right click on the title bar, it gives "move", "size", > "minimize"

Re: Including files to pick up variables

On Fri, Feb 13, 2004 at 04:27:08PM +1300, Robin Sheat wrote: > Hey there, what is the best way of including a Perl so that the contents > of it override the existing variables. For example, I have: With all the help of those who replied ;) I worked it out. For the benefit of others: > my $commen

Re: Searching through a directory.

Hi Daniel, Yes, that is exactly what was wrong with this script. Thanks so much! John At 05:41 PM 2/13/2004, you wrote: --As of Friday, February 13, 2004 5:07 PM -0800, John Lin is alleged to have said: for ($i=0; $i <= $#filenames; $i++) { [EMAIL PROTECTED]; if ($wanted_filen

Manfred Beilfuß/DVAG ist außer Haus.

Ich werde ab 09.02.2004 nicht im Büro sein. Ich kehre zurück am 16.02.2004. Ich werde Ihre Nachricht nach meiner Rückkehr beantworten. In dringenden Fällen die DB-Administration betreffend, bitte eine entsprechende Note an die Adresse dba-intel bzw. dba-host senden -- To unsubscribe, e-mail: [

Re: Searching through a directory.

--As of Friday, February 13, 2004 5:07 PM -0800, John Lin is alleged to have said: for ($i=0; $i <= $#filenames; $i++) { [EMAIL PROTECTED]; if ($wanted_filename == $filename) { $append_filename=$filename . ';'; open(APPENDFILE, ">>/anotherdirectory/

RE: Searching through a directory.

I know this doesn't actually answer your initial question, but you should try using the File::Find module. It's one of the standard modules that comes with just about any distribution. 'perldoc File::Find' should give you more information. -Original Message- From: John Lin [mailto:[

Searching through a directory.

Hi List, This is probably a really simple question, but I need some help with this. Basically, I am searching through a directory and if something matches what I am looking for, then save that filename to a text file. Something like this: === $wanted_filename='t

Re: help on picking up key & values

"Singh, Ajit p" wrote: > Thanks Rob for your reply... > > My problem is :the values i pick up from is actually not a file.(Sorry about > that) > > The values are stored as an array of structs as key value pairs i.e > /thus/axioss/serviceID:123456 > /thus/axioss/supplierProduct:Test Stream 100 > /

Re: NDS user and group query

Michael Weber wrote: > Greetings! > > I would like to create a web page that will allow users to look at my > Novell NDS tree groups and see what users are members, and look at users > to see what groups they are members of. > > I don't want to give them ConsoleOne or NWAdmin since some of them ar

Re: help on picking up key & values

"Singh, Ajit p" wrote: > Comrades, > > I have a function which takes up arguments as shown below: > > $str = "./place_order -t " . > "/thus/axioss/serviceID:\"" . $self->{serviceID} . "\" " . > "/thus/axioss/supplierProduct:\"" . $self->{supplierProduct} . "\" " > . > "/thu

perl and application server..

Hi there, Is there a way to work with perl as a Java, with and application server in other to separate the presentation from the business logic ?, Thanks for any help. __ Do you Yahoo!? Yahoo! Finance: Get your refund fast by filing online. http://taxes.yahoo.co

Re: Reg. length of anonymous array

Balaji, next time when you reply please send it reply to the whole group, don't just sent it to myself. this gives the others a chance to help you. On Thursday 12 February 2004 20:05, you wrote: > Hi David, > > Thanks for your answer. It is working but I dont know what > the dot oper

RE: basic explanation on code

If I get you correctly the %supliers hash will look like this in this script: %supliers =(booboo =>'1', Puter =>'1', Synta => 'defined') ... or am I wrong. I need to see the real print of this hash in order to understand it... Thanx a lot! R o n e n K f i r Sys

Re: Maybe Stupid RegEx Question

Bastian Angerstein wrote: 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? As someone else pointed out, I am surprised that you got a match... Just out of

RE: How to call perl with in-line contents?

Vishal Vasan wrote: > Hi All, > > I have a file with the following contents (temp.txt). > A1110 > G1115 > B1110 > C > D > E1113 > F1115 > and so on. I have to read the contents from this file and create 2 > seperate files. The 1st file contains the lines ending with 0 and 1 > while the 2nd

Re: How to call perl with in-line contents?

The "deep" opinions are interspersed with your original message. An in-line (pardon the "win32-ish-ness" quote escaping) could take the form: perl -ne "BEGIN{open S, '>smf';open L, '>lgf'} chomp;if (/[01]\s*$/){print S \"$_\n\";}else{print L \"$_\n\";}" f1.txt where your data is in f1.txt, your

Re: How to call perl with in-line contents?

On Fri, 13 Feb 2004, Vishal Vasan wrote: > Hi All, > > I have a file with the following contents (temp.txt). > A1110 > G1115 > B1110 > C > D > E1113 > F1115 > and so on. I have to read the contents from this file and create 2 > seperate files. The 1st file contains the lines ending with

Re: Unique file names.

On Fri, 13 Feb 2004, Rob Dixon wrote: > > As far as I know 'rename' is atomic, so: > > my $number; > > do { > $number++; > my $test = "$report.$number"; > } until rename $fn, $test; > > HTH, > > Rob My Perl book indicates that if a file with the name in $test exists, it is des

Re: How to call perl with in-line contents?

On Fri, 13 Feb 2004 17:54:54 +0530 Vishal Vasan <[EMAIL PROTECTED]> wrote: > Hi All, > > I have a file with the following contents (temp.txt). > A1110 > G1115 > B1110 > C > D > E1113 > F1115 > and so on. I have to read the contents from this file and create 2 > seperate files. The 1st fi

RE: basic explanation on code

Hi, Ronen Kfir wrote: >Hi Jan, >I am sorry... > >This is the right code: > > >#!/usr/bin/perl > >%machines =(user1, 'booboo', >user2, 'puter', > user3, 'synta', >user4, 'synta'); > > for (keys %machines) > { >$val=$machines{$_}; > if (!defined $supliers{$va

Re: How to call perl with in-line contents?

On Feb 13, 2004, at 6:24 AM, Vishal Vasan wrote: Hi All, I have a file with the following contents (temp.txt). A1110 G1115 B1110 C D E1113 F1115 and so on. I have to read the contents from this file and create 2 seperate files. The 1st file contains the lines ending with 0 and 1 while t

Re: Handling error with exception

From: "Randy W. Sims" <[EMAIL PROTECTED]> > On 2/12/2004 9:56 PM, Hari Fajri wrote: > > > Do perl have handling error (exception) mechanism? > > > > for example: java use : try{...} catch{...} > > perl has pretty poor build-in exception handling I don't think "poor" is the right word. Simple o

Re: Unique file names.

John McKown wrote: > > I have a bit of a problem and I'm wondering if there is a better solution. > I have a Perl program (of course) which reads STDIN and breaks it into > separate files based on a "report separator". I can construct an > appropriate file name based on information in the "trailing

RE: Data::Dumper trouble

Dont do; my $temp = join '', ; do my $temp = do {local $/; }; is faster. For serialize, I use this code: sub serializeSimple($) { my ($object) = @_; my $Dumper = Data::Dumper->new([$object]); $Dumper->Indent(0); $Dumper->Purity(1); $Dumper->Terse(1); my $dum

Re: Data::Dumper trouble

Jan Eden wrote: > > I want to store some complex data. My first solution made use of Storable, which > worked just fine. Now I learned that neither Storable nor MLDBM are available on > the machine I want to use the program on (and they cannot be made available). > > So I retreat to the core and us

Re: strings

Mark Goland wrote: > > I have a tring which contains 60 to 80 keywords, I need to know what position a > keyword is in. I need an efficint way to extra position of key words, here is > how I am currently finding positions, > > $string="type,model,color,date"; > > # this is how I am currently gettin

Re: Regarding Text Widget in Perl/Tk

If I right click on the title bar, it gives "move", "size", "minimize", "maximize", "close". If I right click anywhere else, it doesn't do anything - produces no box. I don't recall hacking anything to do with that, but perhaps I did. Mike > Ah, but right clicking on the Text widget will--un

How to call perl with in-line contents?

Hi All, I have a file with the following contents (temp.txt). A1110 G1115 B1110 C D E1113 F1115 and so on. I have to read the contents from this file and create 2 seperate files. The 1st file contains the lines ending with 0 and 1 while the 2nd file contains the lines ending with 3 and 5

Re: RE:help on picking up key & values

Ajit P Singh wrote: > Thanks Rob for your reply... > > My problem is :the values i pick up from is actually not a file.(Sorry about > that) > > The values are stored as an array of structs as key value pairs i.e > /thus/axioss/serviceID:123456 > /thus/axioss/supplierProduct:Test Stream 100 > /thus

Re: Local Scope Variables

Joshua A. Gage wrote: Hi, I'm having a bit of trouble with using some local scope variables. I have a function where I want to define a variable, then use that variable in a sub function. That sounds like the text book definition for when to use a local scope variable. Below is the test script

Re: ActiveState installation question

On 02/12/04 19:19, Robert wrote: If I am using the MSI do I need to uninstall the old version before installing the new one? Regardless of whether you use MSI you should be okay if you're installing from the same series, i.e. any release in the 5.8.x series should be binary compatible with any o

Re: Local Scope Variables

On 02/12/04 18:19, Joshua A. Gage wrote: Hi, I'm having a bit of trouble with using some local scope variables. I have a function where I want to define a variable, then use that variable in a sub function. That sounds like the text book definition for when to use a local scope variable. Below

Re: ActiveState installation question

no .. just make sure your directory is the same Robert wrote: If I am using the MSI do I need to uninstall the old version before installing the new one? -- Regards, Steven Mac Intyre Progress Data Services PO Box 751252 Gardenview 2047 Tel: +27 11 622 6767 Fax: +27 11 622 8444 Email: [EMAIL PR

RE: RE:help on picking up key & values

Thanks Rob for your reply... My problem is :the values i pick up from is actually not a file.(Sorry about that) The values are stored as an array of structs as key value pairs i.e /thus/axioss/serviceID:123456 /thus/axioss/supplierProduct:Test Stream 100 /thus/axioss/web/installationTelephoneNum

ActiveState installation question

If I am using the MSI do I need to uninstall the old version before installing the new one? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Local Scope Variables

Hi, I'm having a bit of trouble with using some local scope variables. I have a function where I want to define a variable, then use that variable in a sub function. That sounds like the text book definition for when to use a local scope variable. Below is the test script that I'm using. I'm

Re: basic explanation on code

Hi, Ronen Kfir wrote: >#!/usr/bin/perl > > >%machines =(user1, 'booboo', >user2, 'puter', > user3, 'synta', > user4, 'synta'); > > for $key (keys %machines) > { >$val=$programs{$key} >if (!defined $supliers{$val}) >{ >$supliers{$va

basic explanation on code

#!/usr/bin/perl %machines =(user1, 'booboo', user2, 'puter', user3, 'synta', user4, 'synta'); for $key (keys %machines) { $val=$programs{$key} if (!defined $supliers{$val}) { $supliers{$val}=1; } else