- Forwarded message from Bootscat <[EMAIL PROTECTED]> -
From: "Bootscat" <[EMAIL PROTECTED]>
To: "Mat Harris" <[EMAIL PROTECTED]>
Subject: Re: FW: Need urgent help
Date: Tue, 8 Oct 2002 20:04:38 -0500
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 6.00.2600.00
Jessee Parker wrote:
>Is there a way to keep track of the number of open sockets your program might have
>that are in a TIME_WAIT (I think it is) state?
>
>
>
If you want can trye this script for to track the socket open on the
ports feel free for every change that you want to do.
thio script
Hi Perl experts,
I need your help. I am absolute Perl beginner.
I am writing perl with Windows 95 machine. I download
Perl from activestate and my version 5.6.1. It works
properly and I can run some program.
Currently I am writing log file processing with
perl. I can write normal pro
Not an expert in perl (nor in english), but let's try ;-)
if your output file is not supposed to get too big,
consider 'writing' first your output lines in a hash
... $hash{1} = "line 1"; and so on
(later, writing line 10 for eg.)
if (whatever)
{
$hash{5} .= " these few words";
}
when finished,
> my 2 cents...
>
> Distributed GUI apps are legacy. Write web based software.
You right !
That's what I was thinking about ...
Do you have some reasons in which case "Distributed GUI" will be the winner against
"Browser Client" ?
Should I continue learning Perl/Tk then ? :-)
José.
D
Why not just use Tie::File module ?
http://search.cpan.org/author/JHI/perl-5.8.0/lib/Tie/File.pm#SYNOPSIS
José.
> -Original Message-
> From: Hello Buddy [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, October 09, 2002 11:29 AM
> To: [EMAIL PROTECTED]
> Subject: I need help for handling t
On Wed, 9 Oct 2002 09:00:20 +0100, [EMAIL PROTECTED] (Mat Harris)
wrote:
>
>I tried
>
> require './config.cgi';
>
>I still get the same error. Any other idea's. This one really has me
>stumped.
Your config.cgi needs to have a
1;
on it's last line.
Also check permissions on the file.
--
To unsu
Thanks Jean,
But I am afraid to say that my log file is
at least over 60 K lines. I do not know how to do it.
How can I insert any words in any place of open text
file?
Regards
Winn
--- Jean Padilla <[EMAIL PROTECTED]>
wrote:
> Not an expert in perl (nor in english), but let's
> try ;-)
Due to an bad and old software i need to do an fix.
i have problems though, i need to list all the users in a global group. (Active
directory), this was easy to do. I need to put these users in an local group on a
server, this is easy aswell!
The problem i get is that when i list the global
From: Jim Ockers <[EMAIL PROTECTED]>
> Is there any concise method of fully evaluating the arithmetic
> expressions in here documents, rather than just one level of
> substitution?:
>
> sub RotationMatrix {
> my $theta = $_[0] * 3.14159265 / 180.0;
> my $m = cos($theta);
> my $n = sin
From: "NYIMI Jose (BMB)" <[EMAIL PROTECTED]>
> > my 2 cents...
> >
> > Distributed GUI apps are legacy. Write web based software.
>
> You right !
> That's what I was thinking about ...
>
> Do you have some reasons in which case "Distributed GUI" will be the
> winner against "Browser Client" ?
Hi to all,
I feel myself very stupid, but I've tried to do it in different ways
and I cannot do it.
I need to clear a text, to tokenize it, for instance to delete some
things and to transform some others:
.. at this time I use this regexp:
a) to delete
s/=+\n//g;
s/-+\n//g;
b) to transform
s/-+
HI
I define a file the following way:
$FILE_HANDLE = "<
Hi, pravesh
1 - You are saying "mv <
> HI
> I define a file the following way:
>
> $FILE_HANDLE = "<
> then I openit
>
> open(FILEHANDLE);
>
> i perform some operations..
>
> and then I want to transfer this "somefile" to some other directory
>
> but I am not able to use mv comand to do i
Hi,
I've downloaded Tie::File module from
http://search.cpan.org/author/MJD/Tie-File-0.93/
and given it a little try : works fine.
(even for me : Just Another Perl Newbie).
Thanks, José.
"NYIMI Jose (BMB)" a écrit :
>
> Why not just use Tie::File module ?
>
> http://search.cpan.org/author/JHI
Adriano Allora wrote:
> b) to transform
> s/-+/-/g;
> s/\*+/\*/g;
> s/\^+/\^/g;
> s/\_+/\_/g;
> s/ +/ /g; (this one doesn't works very well: at the end there are
> several blank spaces)
>
> and I used this one: s/\s+/ /g; but I understand this is not very
> useful: I need to change a multiple
Hi!
I do not understand why my regex works , then does not.
regex:
my (@dat) = /(\w+\s+\w+\s+)=\s+(\w+)_(\w+)_(\w+)_/;
Works!
Process Name = D4_jerry_5LM_1.91_BF
Returns:
Process Name DM4 15C035 5LM
Does NOT work:
Process Name = d4_jerry_5lm
Is there a better way to write t
Perl gurus,
I was wondering if there is a one liner that searches a file for a
string and then removes that line and the following four lines in the
file?
Thanks,
Chad
--
Chad Kellerman
Jr. Systems Administrator
Alabanza Inc
410-234-3305
signature.asc
Description: This is a digitally si
See inline comments
> -Original Message-
> From: Jerry Preston [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, October 09, 2002 10:36 AM
> To: Beginners Perl
> Subject: regex is working , then not?
>
>
> Hi!
>
> I do not understand why my regex works , then does not.
>
> regex:
>
> my
Jerry Preston wrote:
> Hi!
>
> I do not understand why my regex works , then does not.
>
> regex:
>
> my (@dat) = /(\w+\s+\w+\s+)=\s+(\w+)_(\w+)_(\w+)_/;
^
This last underscore is expected.
>
> Works!
>
> Process Name = D4_jerry_5LM
OK!
I see 2 as to 3.
Is there a way to make this regex smart enough to handle both string? Is
there a way that (\w+)_ can be changed to 2 to 10?
my (@dat) = /(\w+\s+\w+\s+)=\s+(\w+)_(\w+)_(\w+)_/;
Thanks,
Jerry
-Original Message-
From: Nikola Janceski [mailto:[EMAIL PROTECTED]]
Sen
> The Browser's interface cannot contain all the features and rings
> and bells a normal GUI can (unless you use Java and use the browser
> just to download and host the application)
What about Perl for the aforementioned functionality.
It's seems that Java is the Guru in GUI matters ? :(
José
> ...
> regex:
>
> my (@dat) = /(\w+\s+\w+\s+)=\s+(\w+)_(\w+)_(\w+)_/;
>
>
> Works!
>
> Process Name = D4_jerry_5LM_1.91_BF
>
> Returns:
>
>Process Name DM4 15C035 5LM
>
> Does NOT work:
>
>Process Name = d4_jerry_5lm
> ...
Hi, is that 3rd _ intended ? If yes, it would work on "Proce
Greetings,
I am trying to write a script that at one point needs to look at a number
and divide it by two. The results must always be an integer, but the
numerator can potentially be an odd number. What I want to do is if the
numerator is odd, increment it to the next highest even number. Is t
Hi,
$num += $num % 2;
this increments $num if $num modulo 2 is 1
(ie. if $num was odd)
regards.
"Zielfelder, Robert" a écrit :
>
> Greetings,
>
> I am trying to write a script that at one point needs to look at a number
> and divide it by two. The results must always be an integer, but the
Robert Zielfelder wrote:
> I am trying to write a script that at one point needs to look at a number
> and divide it by two. The results must always be an integer, but the
> numerator can potentially be an odd number.
So you just want to divide by 2 rounding up the result.
use POSIX qw/ceil
Jerry Preston wrote:
> Is there a way to make this regex smart enough to handle both string? Is
> there a way that (\w+)_ can be changed to 2 to 10?
>
> my (@dat) = /(\w+\s+\w+\s+)=\s+(\w+)_(\w+)_(\w+)_/;
Use the split function instead.
Greetings,
Janek
--
To unsubscribe, e-mail: [EMAIL P
perl -e 'printf "%.0d\n", $ARGV[0]/2 if @ARGV' 5
Weird why doesn't this work they way I expect it to?
it returns 2 not 3.
> -Original Message-
> From: Zielfelder, Robert
> [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, October 09, 2002 10:58 AM
> To: Perl Beginners List (E-mail)
> Subje
From: "NYIMI Jose (BMB)" <[EMAIL PROTECTED]>
> > The Browser's interface cannot contain all the features and rings
> > and bells a normal GUI can (unless you use Java and use the browser
> > just to download and host the application)
>
> What about Perl for the aforementioned functionality.
> It's
From: "Zielfelder, Robert"
<[EMAIL PROTECTED]>
> I am trying to write a script that at one point needs to look at a
> number and divide it by two. The results must always be an integer,
> but the numerator can potentially be an odd number. What I want to do
> is if the numerat
$x++ if $x%2;
This increments $x if $x is odd.
Shawn
robert.zielfelder@tycoelect
Can someone show me an example of how I can mix long and short options with
Getopt?
I would like to pass options to a perl script that can take both short and
long options. For example, all of these commands work (this is GNU tar):
# tar -tzvf foo.tar.gz
# tar --list zvf foo.tar.gz
# tar
On Oct 9, Nikola Janceski said:
>perl -e 'printf "%.0d\n", $ARGV[0]/2 if @ARGV' 5
>
>Weird why doesn't this work they way I expect it to?
>it returns 2 not 3.
Blame C and the IEEE standards.
--
Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
RPI Acacia brother #734
Adriano Allora wrote:
>
> Hi to all,
Hello,
> I feel myself very stupid, but I've tried to do it in different ways
> and I cannot do it.
> I need to clear a text, to tokenize it, for instance to delete some
> things and to transform some others:
> .. at this time I use this regexp:
> a) to dele
On Wednesday, October 9, 2002, at 05:28 AM, NYIMI Jose (BMB) wrote:
> Do you have some reasons in which case "Distributed GUI" will be the
> winner against "Browser Client" ?
Sure, tons. Neither Photoshop nor Warcraft III are going to see a HTML
interface in their next revision. Don't get m
On 9 Oct 2002, chad kellerman wrote:
> Perl gurus,
>
>I was wondering if there is a one liner that searches a file for a
> string and then removes that line and the following four lines in the
> file?
Any particular reason for a one-liner?
perl -i~ -pe '((/string/and$ln=$.)..($.-$ln==4))&&u
Jerry Preston wrote:
>
> Hi!
Hello,
> I do not understand why my regex works , then does not.
>
> regex:
> my (@dat) = /(\w+\s+\w+\s+)=\s+(\w+)_(\w+)_(\w+)_/;
> Works!
>
> Process Name = D4_jerry_5LM_1.91_BF
> Returns:
>Process Name DM4 15C035 5LM
>
> Does NOT work:
>Process Nam
I am trying to create a graph showing que length in relation to time. My
problem is that the script below does not put the time in the x-axis, it
just puts 5,10,15,20 etc. I think the problem is with the x axis commands.
I've changed the x_tick_number to auto and null, but the actual values
On Wednesday, October 9, 2002, at 07:08 AM, Jenda Krynicky wrote:
> Yeah ... "Browser Client" applications tend to take longer to do
> anything in.
Of course, this can be as much a fault of bad interface design as the
medium.
> The interface cannot contain all the features and rings
> and bel
Chad Kellerman wrote:
>
>I was wondering if there is a one liner that searches a file for a
> string and then removes that line and the following four lines in the
> file?
grep 'string' -A 4 yourfile.txt | grep -v -f - yourfile.txt
:-)
John
--
use Perl;
program
fulfillment
--
To unsubs
Robert Citek wrote:
>
> Can someone show me an example of how I can mix long and short options with
> Getopt?
>
> I would like to pass options to a perl script that can take both short and
> long options. For example, all of these commands work (this is GNU tar):
> # tar -tzvf foo.tar.gz
>
from some modules,i found this expression " if ($self->verbose) ".
is this verbose is a special method or something else?
thanks
-
Do you Yahoo!?
Faith Hill - Exclusive Performances, Videos, & more
faith.yahoo.com
Hello,
The documentation for GetOpt::Long on CPAN includes a section on configuring
the module. Several properties of interest to be configured are auto_abbrev,
bundling, and bundling_override. Says the blurb on the bundling description,
for example:
Enabling this option will allow single-c
what is the meaning of $RIDLINE = 'RID\s+=\s+(\d+-\d+-\d+)';
i found it from the begin block of a module.
thanks
-
Do you Yahoo!?
Faith Hill - Exclusive Performances, Videos, & more
faith.yahoo.com
It might help to say what module you found it in, since that would supply more
context. Most generally, it looks like $RIDLINE is going to be put into a
regular expression, perhaps something along the lines of
m/$RIDLINE/
If you are asking about the \s+ sort of notation, then you need to read
Supplying module names makes answering it easier to give a better answer.
Idiomatically, $self usually refers to the scalar being blessed into a class,
in other words, an object. So $self->verbose is indeed calling a method on
the object using the indirect syntax, though whether or not this m
Jean Padilla <[EMAIL PROTECTED]> wrote:
> Hi, pravesh
> 1 - You are saying "mv < 2 - a file handle is *not* to be confused with a file name
Actually - Perl will let you do
our $FH = 'path';
open FH or die...; # open FH, '<', $FH
Doesn't work with 'my' variables, though.
> try :
>
> my $f
If I have an object and I want to increase it's functionality by
"upgrading/promoting" it to a subclass if certain conditions are met
during a method call, could/should I use something like:
sub some_method {
my $self = $_[0];
# ...
if (PROMOTE_CONDITION) {
On Wed, Oct 09, 2002 at 02:34:49PM -0500, James Edward Gray II wrote:
> If I have an object and I want to increase it's functionality by
> "upgrading/promoting" it to a subclass if certain conditions are met
> during a method call, could/should I use something like:
>
> sub some_method {
>
--- James Edward Gray II <[EMAIL PROTECTED]> wrote:
> If I have an object and I want to increase it's functionality by
> "upgrading/promoting" it to a subclass if certain conditions are met
> during a method call, could/should I use something like:
>
> sub some_method {
> my $self = $_[0]
On Wed, Oct 09, 2002 at 02:28:58AM -0700, Hello Buddy wrote:
> What I am facing now is when I write to format text file, suppose I was
> currently in line 10 for my formatted text file and I want to append some
> word in line 5 of formatted text file.
Please see perldoc -q "line in a file", or
ht
Hi,
@array = qx{egrep -n '\{' file);
foreach $el (@array)
{
($num,@other} = split(/\:/,$el);
$thenum{$num} = $num;
}
foreach $ele (sort keys %thenum)
{
print"$ele\n";
}
except this one sort by string and not by integer, so 100 is before 99
Do you have an idea to sort that by interger and not by
Replace the following
foreach $ele (sort keys %thenum
with
foreach $ele (sort {$a <=> $b} keys %thenum)
This will do ascending numeric or if descending switch the a and b around.
Wags ;)
-Original Message-
From: P lerenard [mailto:[EMAIL PROTECTED]]
Sent: Wednes
see bottom...
-Original Message-
From: P lerenard [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, October 09, 2002 1:21 PM
To: [EMAIL PROTECTED]
Subject: sort a hash
Hi,
@array = qx{egrep -n '\{' file);
foreach $el (@array)
{
($num,@other} = split(/\:/,$el);
$thenum{$num} = $num;
}
foreac
thanks working fine
>From: "Wagner, David --- Senior Programmer Analyst --- WGO"
><[EMAIL PROTECTED]>
>To: 'P lerenard' <[EMAIL PROTECTED]>, [EMAIL PROTECTED]
>Subject: RE: sort a hash
>Date: Wed, 9 Oct 2002 15:25:23 -0500
>
> Replace the following
> foreach $ele (sort keys %thenum
On Wed, Oct 09, 2002 at 08:21:27PM +, P lerenard wrote:
> except this one sort by string and not by integer, so 100 is before 99
> Do you have an idea to sort that by interger and not by string, 99 before
> 100?
See perldoc -f sort. It has many fine examples of how to sort various types
of
thank you all
really really quik answer
Pierre
>From: Michael Fowler <[EMAIL PROTECTED]>
>To: P lerenard <[EMAIL PROTECTED]>
>CC: [EMAIL PROTECTED]
>Subject: Re: sort a hash
>Date: Wed, 9 Oct 2002 12:33:28 -0800
>
>On Wed, Oct 09, 2002 at 08:21:27PM +, P lerenard wrote:
> > except this one
thank you all
special thanks for the first 3 on the podium
Pierre
>From: "Mark Anderson" <[EMAIL PROTECTED]>
>To: "P lerenard" <[EMAIL PROTECTED]>, <[EMAIL PROTECTED]>
>Subject: RE: sort a hash
>Date: Wed, 9 Oct 2002 13:28:40 -0700
>
>see bottom...
>
>-Original Message-
>From: P lerena
Hello everyone,
The following is from page 75 in the Camel:
"List assignment in scalar context returns the number of elements produced by
the expression on the right side of the assignment:
$x = ( ($a, $b) = (7,7,7) ); #set $x to 3, not 2
"
It goes on to explain how this is useful but fr
On Wed, Oct 09, 2002 at 02:16:52PM -0700, nkuipers wrote:
> When I first saw this, I worked out the assignment where $a and $b each
> get a 7 and the third 7 is discarded, then $x gets the last value in the
> list of $a and $b because of the comma operator for list literals in a
> scalar context..
The following is from page 75 in the Camel:
"List assignment in scalar context returns the number of elements produced by
the expression on the right side of the assignment:
$x = ( ($a, $b) = (7,7,7) ); #set $x to 3, not 2
"
why. how.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For a
James Edward Gray II wrote:
> If I have an object and I want to increase it's functionality by
> "upgrading/promoting" it to a subclass if certain conditions are met
> during a method call, could/should I use something like:
>
> sub some_method {
> my $self = $_[0];
>
> # ...
>
> if (PROMOTE_C
Nkuipers wrote:
> The following is from page 75 in the Camel:
>
> "List assignment in scalar context returns the number of elements produced
> by the expression on the right side of the assignment:
>
> $x = ( ($a, $b) = (7,7,7) ); #set $x to 3, not 2
>
can you guess what $x is now:
$x = ($a,
On Wed, Oct 09, 2002 at 03:22:20PM -0700, nkuipers wrote:
> The following is from page 75 in the Camel:
>
> "List assignment in scalar context returns the number of elements produced by
> the expression on the right side of the assignment:
>
> $x = ( ($a, $b) = (7,7,7) ); #set $x to 3, not 2
>
On Wednesday, October 9, 2002, at 05:15 PM, david wrote:
> just curious:
> if you want child's functionality, why wouldn't you want to have the
> child
> object in the first place?
Glad, you asked; I would love a second opinion! My server manages
vanilla Telnet connections with a Connection
After trying my hand at perl, realizing it was above my head, going back
at starting with python, and now trying again at perl this is my first
(failed) attempt at a user-pass program attempt, except it never accepts
the username. What is wrong with it?
%up = {
'kyle' => 123,
'jason' => 123,
Nkuipers <[EMAIL PROTECTED]> wrote:
> Hello everyone,
>
> The following is from page 75 in the Camel:
>
> "List assignment in scalar context returns the number of elements
> produced by the expression on the right side of the
> assignment:
>
> $x = ( ($a, $b) = (7,7,7) ); #set $x to 3, not 2
On Thu, Oct 10, 2002 at 12:01:31AM +, Kyle Babich wrote:
> %up = {
> 'kyle' => 123,
> 'jason' => 123,
> 'chelsea' => 123,
> 'john' => 123,
> 'cheryl' => 123
> };
This is your problem. You've constructed an anonymous hash and assigned it
to %up. You should be using parens, not curl
James Edward Gray II wrote:
>
> On Wednesday, October 9, 2002, at 05:15 PM, david wrote:
>
>> just curious:
>> if you want child's functionality, why wouldn't you want to have the
>> child
>> object in the first place?
>
> Glad, you asked; I would love a second opinion! My server manages
> v
P Lerenard wrote:
>
> Hi,
Hello,
> @array = qx{egrep -n '\{' file);
> foreach $el (@array)
> {
> ($num,@other} = split(/\:/,$el);
> $thenum{$num} = $num;
> }
>
> foreach $ele (sort keys %thenum)
> {
> print"$ele\n";
> }
> except this one sort by string and not by integer, so 100 is before 99
>
Thanks a lot for the advice! I'll factor this into my thinking and see
what I come up with.
James
On Wednesday, October 9, 2002, at 07:07 PM, david wrote:
> James Edward Gray II wrote:
>
>>
>> On Wednesday, October 9, 2002, at 05:15 PM, david wrote:
>>
>>> just curious:
>>> if you want chil
i use solaris and ihave no root right.the version of perl5.005_03
in a simple script if i try to add "use warnings",it will say Can't locate warnings in
@inc(@inc..)
instead if i use perl -w my.pl,it will give me the warning information. so how can i
modify my configuration or what module
Stanley wrote:
>
> i use solaris and ihave no root right.the version of perl5.005_03
>
> in a simple script if i try to add "use warnings",it will say Can't locate
> warnings in @inc(@inc..)
>
> instead if i use perl -w my.pl,it will give me the warning information. so
> how can i modify m
both #!/usr/bin/perl -w and perl -w my.pl will do the warnings work,but
use warnings will throw exception.
if i setup a file called warnings.pm(it only conatins 1) in my lib and don't use
directive or option,there is no warning and exception
stanley
nkuipers wrote: If you put the -w flag in
Todd
how do you turn off the warning ?
stanley
>
> i use solaris and ihave no root right.the version of perl5.005_03
>
> in a simple script if i try to add "use warnings",it will say Can't locate
> warnings in @inc(@inc..)
>
> instead if i use perl -w my.pl,it will give me the warning inf
On Wed, Oct 09, 2002 at 07:55:13PM -0700, stanley wrote:
> #!/usr/bin/perl -w
>
> does it still throw an exception or do the warnings work?
-w on the shebang or command lines will work with any version of Perl. The
use warnings pragma was added in 5.6.0, and this is why you're getting the
error
Nyimi Jose wrote:
>> The Browser's interface cannot contain all the features and rings
>> and bells a normal GUI can (unless you use Java and use the browser
>> just to download and host the application)
>
> What about Perl for the aforementioned functionality.
> It's seems that Java is the Guru
Hello,
Can someone help me with creating a script to return certain information from a
Postgres database to a drop down box on a webpage?
#!/usr/bin/perl
use CGI;
use DBI;
#Define connection values
$DBSource = 'dbi:Pg:dbname=mydb';
$DBUsername = 'test';
$DBAuth = 'test';
#Open db connection
how can i pass a hash variable to a subrotine?
such as
%a=(m=>1,n=>2);
%b=(k=>4,j=>6);
sub givename(%a)
{
#here how can make %c get the subroutine argument(a hash variable))
my %c=???;
print %c;
}
-
Do you Yahoo!?
Faith Hill - Exclusive Performances, Vi
On Wed, 9 Oct 2002, stanley wrote:
>
> how can i pass a hash variable to a subrotine?
>
> such as
>
> %a=(m=>1,n=>2);
>
> %b=(k=>4,j=>6);
>
> sub givename(%a)
>
> {
>
> #here how can make %c get the subroutine argument(a hash variable))
>
> my %c=???;
>
> print %c;
>
> }
Read through
p
On Oct 9, stanley said:
>sub givename(%a)
DO NOT try to put variables in the declaration of a function. Unless you
are into HEAVY MAGIC, your subroutine declarations (or definitions) should
look like
sub function_name {
# ...
}
No () there. When you CALL the function, THEN you use ()
Hi all,
I want get the last part of this sentence excluding @@
i.e i should get my output in a variable($put) like this for the following
sentence:
EnternalID_GetDateofBirth.vbp
M:\jav_test\Technical_Docs\.@@\main\int_1_2b\techdoc_1_2b\2\Common_Controls\
main\int_1_2b\techdoc_1_2b\1\Code_Exam
82 matches
Mail list logo
