> -Original Message-
> From: Daniel T. Staal [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, March 10, 2004 8:11 PM
> To: Perl Beginners
> Cc: Sumit Kaur
> Subject: RE: Nucleotide Sequencing
>
>
> --As of Wednesday, March 10, 2004 6:29 PM -0600, Charles K.
> Clarkson is
> alleged to have
> -Original Message-
> From: LoneWolf [mailto:[EMAIL PROTECTED]
> Sent: Friday, February 06, 2004 10:56 AM
> To: [EMAIL PROTECTED]
> Subject: Script Kiddie issues
>
>
> Frankly I use the apache filter to check for people looking
> for cmd.exe or root.exe or any one of a dozen files, and
> -Original Message-
> From: Tassilo von Parseval
> [mailto:[EMAIL PROTECTED]
> Sent: Friday, January 09, 2004 12:24 AM
> To: Wiggins d'Anconia
> Cc: PerlDiscuss - Perl Newsgroups and mailing lists;
> [EMAIL PROTECTED]
> Subject: Re: How to parse Microsoft Outlook Inbox
>
>
> On Thu, J
\d\d)(\d\d)/);
print "Yesterday was $mnth/$day/$yr\n";
>>> Bob Showalter <[EMAIL PROTECTED]> 10/10/03 12:20PM >>>
Bill Akins wrote:
> ...
> Try this:
> #!/usr/bin/perl -w
>
> my @now = localtime;
> my $sec = ( $now[0] );
> my $min =
Bill Akins
SSS III
Emory Healthcare
(404) 712-2879 - Office
12674 - PIC
[EMAIL PROTECTED]>>> "[EMAIL PROTECTED]" 10/10/03 08:57AM >>>
>Hi,
>i search hiw can i work on time.
>i want to get day number and make -1
Try this:
#!/usr/bin/perl
Awesome! Thanks Bob!
>>> Bob Showalter <[EMAIL PROTECTED]> [SNIP]
Variables are expanded in backticks, so you need to protect the $ on $1, or
use qx'' around your command (but then you have to protect the single quotes
But there's no need for the awk or grep, since perl has functions to handle
t
sign with a backslash... otherwise it puts the value of $1 into your
command before executing it.
You might want to use strict, it would have caught that.
Rob
-Original Message-
From: Bill Akins [mailto:[EMAIL PROTECTED]
Sent: Thursday, August 21, 2003 2:01 PM
To: [EMAIL PROTECTED]
Subject
t I need, why doesn't this work during an external
call?
Running on Linux, Perl 5.6.1
Thanks all.
Bill Akins
SSS III
Emory Healthcare
(404) 712-2879 - Office
12674 - PIC
[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
You may want to take a look at IO::Tee and IO::File module from CPAN. See
http://search.cpan.org/author/KENSHAN/IO-Tee-0.64/Tee.pm
>>> "Charles Scheepers" 07/08/03 03:56AM >>>
The program prints to a number of different places. Files --> data output and some
logs.
Then I also need to print
Thank you all for your responses!! I finally have a handle on it and used a little of
everyones suggestions. This list rocks because of people like you. Thanks again!
> > while (($type ne "Windows") || ($type ne "Linux")) {
> Right here, you must have the full string "Windows" or "Linux"
Yes, correct.
> > print "Enter TYPE of server to build. Linux or Windoze
> > [linux, windows]:
> > \n";
> > $type = ;
> > chomp $type;
> > $type =~ tr/a-z/A-Z/;
>
> Here yo
Hi all!
I have this while loop in my script:
while (($type ne "Windows") || ($type ne "Linux")) {
print "Enter TYPE of server to build. Linux or Windoze [linux, windows]:
\n";
$type = ;
chomp $type;
$type =~ tr/a-z/A-Z/;
if (($type eq "LINUX") || ($type eq "L")) {
$type = "Linux"; }
if (($type
You may want to check out ht://dig (www.htdig.org) as it will index pretty near
anything. Most of the parsing is done with perl so you get some good examples of what
can be done with perl. I know it is ported to *nix, SPARC 2.x HP/UX 10, BSD and OS X.
I'm sure there is a WinDoze distro also.
Hi,
AFAIK, you would have to convert HTML to Latex or PostScript first.
Then you could just run it through either texi2pdf or ps2pdf that should
be on your Linux box. (locate 2pdf) I use ps2pdf all the time and have
had great success with it.
Check out http://www.easysw.com/htmldoc/ You can do
Sorry for top posting but makes this easier... Comments are in your
code below. Mostly you forgot semicolons in your code and used = when
you needed eq. BTW, I have not tested any of this, just spotted some
things.
HTH!!
Bill
-Original Message-
From: Mark VanMiddlesworth [mailto:[EMAIL
!
Bill Akins, CNE
Sr. OSA
Emory Healthcare
(404) 712-2879 - Office
12674 - PIC
[EMAIL PROTECTED]
>>> "Southworth, Harry" <[EMAIL PROTECTED]> 01/24/03 06:38AM >>>
I'm running Perl on Cygwin on top of Windows 2000.
I have a lot of ascii text files that someone
Thank you John!!! Worked perfectly.
>>> "John W. Krahn" <[EMAIL PROTECTED]> 01/22/03 11:18PM >>>
Bill Akins wrote:
>
> Hi all,
Hello,
> I have 2 hashes, the keys are a unique field. Hashes are built like this:
>
> open (INPUTFH, ) or d
Hi all,
I have 2 hashes, the keys are a unique field. Hashes are built like this:
open (INPUTFH, ) or die "Can't find allusers.chr file!\n";
while ( $line = ) {
#set values here here...
}
push ( @{ $NS{$BV_NF} }, $NS_Name, $NS_Cont, $W_Name, $V_FID, $G_P, $GWD,
$NS_Creation, $NS_Expira
perldoc -f length
#!/usr/local/bin/perl -w
use strict;
my $foo = "This is 10";
my $i = (length $foo);
print "The string is $i charecters long!\n";
>>> "Ho, Tony" <[EMAIL PROTECTED]> 01/17/03 06:08AM >>>
Hi guys
Do you know whether there is a function in perl to find the size of a string
?
For ex
$mth/$day/$yr.",
file => \@MailMe
}))
and print "Mail sent OK."
)
or die "$Mail::Sender::Error\n: $!";
I have used it on *nix boxes as well. HTH.
Later!
Bill Akins, CNE
Sr. OSA
Emory Healthcare
(404) 712-2879 - Office
12674 - PIC
[EMAIL PROTECTED]
>>
tem("unzip $myfile1 doc.txt")));
Any clues? Thanx!
Please reply directly and to list.
Bill Akins, CNE
Sr. OSA
Emory Healthcare
(404) 712-2879 - Office
12674 - PIC
[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
See http://www-106.ibm.com/developerworks/linux/library/l-pexcel/ for a
good article on perl and Excel.
Bill Akins, CNE
Sr. OSA
Emory Healthcare
(404) 712-2879 - Office
12674 - PIC
[EMAIL PROTECTED]
>>> [EMAIL PROTECTED] 07/26/02 10:40 AM >>>
On Jul 26
I would also be interested in seeing what others have come up with.
Bill Akins, CNE
Sr. OSA
Emory Healthcare
(404) 712-2879 - Office
12674 - PIC
[EMAIL PROTECTED]
>>> "Nigel Peck" <[EMAIL PROTECTED]> 06/13/02 04:03AM >>>
Does anyone have experience o
stead.
}
}
Now $EMAIL should contain [EMAIL PROTECTED]
or list of emails pulled from input.
Bill Akins, CNE
Sr. OSA
Emory Healthcare
(404) 712-2879 - Office
12674 - PIC
[EMAIL PROTECTED]
>>> lz <[EMAIL PROTEC
Hello all,
I have a var, $DOC_NAME, holding a file name. I need to get the first
part of the variable into another variable. Some examples are
A98-12345, SO-02-789, P-99-029833 and GQE-37-2199.
Examples:
A98-12345, I need A98
SO-02-789, I need SO-02
P-99-029833 I need P-99
GQE-37-2199 I need G
How about something like this:
if (($s_field >= 1) && ($s_field <= 10)) {
do something;
}
else {
do something else;
}
>>> Jaishree Rangaraj <[EMAIL PROTECTED]> 05/14/02 04:58PM >>>
Hello
I have a value say "$s_field". I have to see if this matches with in
the ra
I have found this testing harness to be very helpful. Perhaps this will
help you understand options better than just a snippet as this incorprates
many options...
HTH!
Bill A.
-Original Message-
From: M z [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, March 05, 2002 10:26 AM
To: [EMAIL PROT
Hi all,
After processing files in my perl script, I need to move them to the final
destination. My problem is if the file already exists (lets call it
data.txt), I need to rename it to data-v01.txt (where -v01 is version 01).
So... if there are four other esisting versions, data-v03.txt should
Hi all,
I have a string that is read in and assigned to a veriable. String
looks something like this:
10.00 c$cpi c$ul (Sample Number:) c$sh /Courier 0 c$fnt (
SA-01-0C8A8) c$sh ( ) c$sh /Courier 0 c$fnt
I need the string between the second set of ()'s. There may or may not
be a leading s
I believe Perl has all of the funtionality of sed so why not use the substr() function?
I have not tested it and I'm sure others here can do this in one line, but couldn't
you do something like this?
if ($string =~ / >>/i) {
$ll = (length($string) - 3);
$string = substr($string, 1, $ll);
}
Wit
For others who may want to see how module works...
Here is a snippet of code I used with the Write:Excel module... Was
written and run on WinNT without Excel installed on the box. It reads
in csv files into Excel file and then sets some limited formatting
(freeze panes and set column widths).
There is a great article you can read about using
Spreadsheet::WriteExcel and Spreadsheet::ParseExcel modules.
It can be found here:
http://www-106.ibm.com/developerworks/linux/library/l-pexcel/
HTH!
>>> "Lance Prais" <[EMAIL PROTECTED]> 01/31/02 12:45PM >>>
I have a question regarding writing
Hi all,
I would like to read in a file and print out to a new file UNTIL I reach a
key word in the file.
I tried something like
while (<>) {
if !/KEYWORD/;
print $ >> dest.txt;
}
but that seems to copy all lines of the file except the one(s) contining
KEYWORD. How can I have this exit and clo
Hello All,
OK, I'm very new to Perl, so please don't flame me!
I need to read in every file in a dir into a new file. I can do it like
below if I know the file names, but how can I specify *.CSV? Actually there
will be only the data files I need to read in the dir so *.* would work as
well. P
34 matches
Mail list logo
