zentara wrote:
On Thu, 12 Feb 2004 17:45:17 +0100, [EMAIL PROTECTED] (Jan Eden)
wrote:
Hi all,
I just wrote a CGI script using the Storable module, which works
fine on my machine. The script retrieves a complex hash and either
prints it out or updates it and stores it back.
But my ISP does
Charlie somerville wrote:
Yeah, that looks pretty good
Alexander Blüm [EMAIL PROTECTED] wrote in message
news:[EMAIL PROTECTED]
that doesn't sound too good. sounds like loading all into memory, split
it up into arrays and then finally printing the contents to the browser.
bleh!
how aout this:
#!/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
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{$val}=1;
}
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
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]
http://learn.perl.org/ http://learn.perl.org/first-response
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
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
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
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
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
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
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
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--unless you
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 getting
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 use
Dont do;
my $temp = join '', IN;
do
my $temp = do {local $/; IN};
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
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
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 or low-level
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
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{$val})
{
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 file contains
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
destroyed and
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 0 and 1
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 0 or 1
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 file
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
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
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
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.
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} . \
.
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 are
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
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:
===
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
--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,
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:
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
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 $comment
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, maximize,
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 a
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:
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
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 go,
On Sat, Feb 14, 2004 at 08:19:20AM +0100, wolf blaum wrote:
If you are asking how to teel between:
$var=sub;
and
sub;
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
45 matches
Mail list logo