Win32::Ole and Powerpoint

I have been working on a script that imports a number of pictures into powerpoint edits some text and saves the presentation out. The main program works fine but there are some annoying things that happen with the application. I am creating the application with: my $app = Win32::OLE->new('PowerPo

Re: A way to comment out a block of code

On 1/15/2008 3:09 PM, S.A. Birl wrote: Sometimes I find the need to comment out a block temporarily. My roots go back to C where I could quickly throw a #if 0 #endif if(0){ [...] } -- Jeremy Kister http://jeremy.kister.net./ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional

Re: using scalar as an operator

On 12/31/2007 7:10 PM, Chas. Owens wrote: Use the embedded pattern-match modifier. See perldoc perlre or http://perldoc.perl.org/perlre.html#'(%3fpimsx-imsx)' for more information. That's good info, thanks for the pointer! -- Jeremy Kister http://jeremy.kister.net./ -- To

Re: using scalar as an operator

On 12/31/2007 7:09 PM, Tom Phoenix wrote: There is no correct way to use a variable as an operator. [...] This is why '(?i)' was invented. You want something like this: perfect. Thanks! -- Jeremy Kister http://jeremy.kister.net./ -- To unsubscribe, e-mail: [EMAIL PROT

using scalar as an operator

print "match\n"; } Thanks, -- Jeremy Kister http://jeremy.kister.net./ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: dereferencing

even possible, but I can't see any reason to need it, either. Oops. I knew I was making a new hash (hence the variable name). I read his message (and subject) to imply that all he wanted was dereferencing. My fault. -- Jeremy Kister http://jeremy.kister.net./ -- To unsubscribe, e-ma

Re: dereferencing

On 10/29/2007 7:23 PM, Aaron Priven wrote: my $hashref = \%hash; But as near as I can tell, there is no way to do the reverse operation: making a "my %hash" that is an alias for a hash reference. my %newhash = %{$hashref}; -- Jeremy Kister http://jeremy.kister.net./ -- To u

Re: Allow user to input data until user press a certain key

oreach my $word (split(/\W+/, $_)){ print "<$word>\n" if($DEBUG); } } also, you probably mean /^q$/i in that first regex, otherwise you're matching any letter q -- quick, squid, etc -- Jeremy Kister http://jeremy.kister.net./ -- To unsubscribe, e-mail: [EMAIL PRO

strict behavior with .pm

go { my $variable; push @variable, 1; return([EMAIL PROTECTED]); } 1; __END__ -- Jeremy Kister http://jeremy.kister.net./ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: sorting speed

On 9/10/2007 5:13 PM, Rob Dixon wrote: use List::Util qw/max/; my %hash = (x => [ 'a','b','c' ], y => [ 'd','e' ], z => [ 'f' ], ); my $most = max map scalar @$_, values %hash; Woah!

Re: sorting speed

On 9/10/2007 4:45 PM, Jeremy Kister wrote: if(@{$hash{$key}} > $highest){ oops, that's if(@{$hash{$key}} > $most){ not $highest. -- Jeremy Kister http://jeremy.kister.net./ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROT

sorting speed

my $most = @{$hash{(sort { @{$hash{$b}} <=> @{$hash{$a}} } keys %hash)[0]}}; I ran each 500,000 times. I expected the second version finish sooner, but it is noticeably slower than the first. Can someone show me a better way to get this done ? -- Jeremy Kister http://jeremy.ki

Re: Printing a backspace?

"; print "\n"; or use a module that does it for you.. use Term::ReadKey; print "passwd: "; ReadMode 2; chop(my $passwd=); ReadMode 0; print "\n"; -- Jeremy Kister http://jeremy.kister.net./ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: Net::BGP advise

On 5/26/2007 8:27 PM, Jeremy Kister wrote: > I'm sure I'm just using the code incorrectly, but can't figure the > right way to do it. I've figured out the logic. $peer->update must go inside on of the peer callbacks. I can simply add conditionals inside my time

Net::BGP advise

Then the bgp session establishes, but the /32 is not injected. If put $peer->add_timer(\&foo, 20); right before $bgp->event_loop, and put $peer->update inside sub foo, then the injection works, but I resend the update every x seconds. I'm sure I'm just using the code incorre

Re: forking problem with dbd::mysql

st. Should I take this over to the mysql-perl list ? Thanks! -- Jeremy Kister http://jeremy.kister.net./ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: forking problem with dbd::mysql [dupe]

On 5/8/2007 6:46 PM, Jeremy Kister wrote: > I'm utilizing fork for the first time, and am having an issue which I > can't track down. I sent this original email with a bad return address. Four and a half hours later, when the post still didnt make it to the list, I realized tha

forking problem with dbd::mysql

SULT: 1 SQL RESULT: 1 DBD::mysql::st execute failed: MySQL server has gone away at ftest.pl line 36, line 3. DBD::mysql::st execute failed: MySQL server has gone away at ftest.pl line 36, line 3. What's gone wrong? perl 5.8.3, sun4-solaris DBI 1.55 DBD::mysql 3.0007 -- Jeremy Kister htt

Re: forking problem with dbd::mysql

nal to parent,maybe this > break the dbh connection?try to add these 2 lines in parent code: > > use POSIX qw(:signal_h WNOHANG); > $SIG{CHLD}=sub {while((my $child=waitpid(-1,WNOHANG))>0){}}; Nope, same problem. Thanks, -- Jeremy Kister http://jeremy.kister.net./ -- To unsubs

forking problem with dbd::mysql

as it can. But instead: SQL RESULT: 1 SQL RESULT: 1 SQL RESULT: 1 DBD::mysql::st execute failed: MySQL server has gone away at ftest.pl line 36, line 3. DBD::mysql::st execute failed: MySQL server has gone away at ftest.pl line 36, line 3. What's gone wrong? perl 5.8.3, sun4-solaris DBI

Re: sending a variable in a Net::SMTP message not working

n with an empty line? If not, you're not separating the header from the message body, and your MUA thinks the whole message is a header. $smtp->datasend("Subject: $subject\n"); $smtp->datasend("\n"); $smtp->datasend($file); -- Jeremy Kister http://jeremy.kister.

CGI bug

;,$y), "\n", $q->hidden('a',$y), "\n", $q->end_html(); using script.pl?x=5, you'll see that the cgi prints x=5 but a=6 apparently only happens when you're setting a parameter via 'hidden' that was read by 'param'

regex quoting

perldoc -q quote talks about \Q before a regex to escape special characters. how do you use \Q when you want to anchor the regex with a dollar sign ? my $string = my $regex = "foo"; print "match\n" if($string =~ /^\Q${regex}$/); -- Jeremy Kister http://jeremy

Re: unscrambler speedup rewrite

On 6/19/2006 11:54 PM, Jeremy Kister wrote: I wrote a word descrambler that works very well, but is very slow compared to http://www.jumble.org already found a very important piece that I missed ($lfound).. while(1){ print "word: "; chop(my $scramble = );

unscrambler speedup rewrite

next unless($found == $slen); print "$word\n"; } } -- Jeremy Kister http://jeremy.kister.net./ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: What are the most successful applications of Perl? Thanks.

JupiterHost.Net wrote: I also have advanced knowldge of a certain companie's 10th anniversary celebration that involves releasing an up till now internal/private Perl based system for general use. I can't elaborate or they'd have to kill me but all I can say is, I can't freaking wait to be ab

[OT]Re: export script problem

Graeme McLaren wrote: Public Sub House() On Error Resume drink If Pint.empty = True Then Pint.refill Else Pint.drink End if stomach.add Pint MsgBox " I've had " & stomach.count & " Pints" MsgBox "VERY DRUNK" End Sub sub house {

Re: sdf

han a 10 character message? -- Jeremy Kister http://jeremy.kister.net./ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: asdf 2

Tony Frasketi wrote: asdf I'm not sure I understand the question. --jjv -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Formatting Question

[EMAIL PROTECTED] wrote: Hello, Here's my question. Let's say I have the following numbers and I want to print them out so they are formatted in money terms: examples: 10834.00 1939432.00 to print out as: $10,834.00 $1,939,432.00 How can I do this? I was suspecting that the "p

Re: grep mystery / What happened to my @ sign ?

"[EMAIL PROTECTED]'; it also doesnt appear that you need m/ --- / will do fine by itself in this context. -- Jeremy Kister http://jeremy.kister.net./ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

hashrefs inside arrays

Can't use string ("string1") as a HASH ref while "strict refs" in use What's the correct method for this? -- Jeremy Kister http://jeremy.kister.net./ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: more hashref within array sorting

On 8/9/2005 8:43 AM, John W. Krahn wrote: > Jeremy Kister wrote: >>I've apparently dumbed down my code and question a bit too much: I have >>multiple hashrefs in each element of the array, and I need the resulting >>sorted array to contain all the data in the original

Re: more hashref within array sorting

ontain all the data in the original array, simply sorted by the value of N. my @a = ( {N => '10.1.2.1', ID => 1}, {N => '10.1.9.1', ID => 2}, {N => '10.3.5.1', ID => 3}, {N => '10.1.1.3', ID =>

more hashref within array sorting

$a->[3] <=> $b->[3] } map { [ $_, split /\./ ] } $a->{N}; but that simply fails to produce. I've replaced $a->{N} with multiple variations, but I'm confused. If someone can give me code, I'd also appreciate a clue. thanks, -- Jerem

sorting array full of hash references

after the while loop, I'm trying to build a new version of @array, sorted by the 'name' key. Anyone feel like throwing example code my way? -- Jeremy Kister http://jeremy.kister.net./ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL P

Re: Pattern Question: One or both, but not neither

Jeremy Vinding wrote: Ing. Branislav Gerzo wrote: Jeremy Vinding [JV], on Friday, June 03, 2005 at 16:34 (-0600) has on mind: this will not match Florida, I think you meant: /(?:Tampa )?Florida|Tampa/ JV> You caught me, but that matches "Tampa Tampa" too JV> wha

Re: Pattern Question: One or both, but not neither

Ing. Branislav Gerzo wrote: Jeremy Vinding [JV], on Friday, June 03, 2005 at 16:34 (-0600) has on mind: this will not match Florida, I think you meant: /(?:Tampa )?Florida|Tampa/ JV> You caught me, but that matches "Tampa Tampa" too JV> what I really meant was:

Re: Pattern Question: One or both, but not neither

Wagner, David --- Senior Programmer Analyst --- WGO wrote: Siegfried Heintze wrote: Can I write a pattern that matches "Tampa" or "Florida", or "Tampa Florida"? Thanks, Siegfried You would have to order it so that if wanted Tampa Florida that would have priority over Tampa

regex seg fault on long string

fine with perl 5.6.0, 5.6.1, and 5.8.5 (assuming perl is the difference, and not the differences between Solaris 7 and 9) Is there a more compatible way to check my overly-long string? Is this a problem with perl 5.8.0? Is this simply some kind of resource exaustion on my system ? -- Jeremy K

Re: sorting with Swartz Transform

<=> $b->[4] > > || > > $a->[5] <=> $b->[5] > > } map { [ $_, split /[. ]/ ] } @unsorted; wild.. But since the data is already in a hash, are you suggesting to first loop through the hash, pushing the

sorting with Swartz Transform

uot;; } foreach my $sorted (map { $_->[0] } sort { $a->[1] <=> $b->[1] } map { [$_,split] } @unsorted){ print "$sorted\n"; } -- Jeremy Kister http://jeremy.kister.net/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

PROTO in sub NAME (PROTO) {

on. there doesnt seem to be any warning or error when you ($$$) but only provide 1 argument, for example. Jeremy Kister http://jeremy.kister.net/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: get last record in a file

correctly. Either solution from myself or from Gunnar will work. Jeremy Kister http://jeremy.kister.net/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: get last record in a file

sh){ print "$value\n"; } Jeremy Kister http://jeremy.kister.net/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: get last record in a file

On Wednesday, August 25, 2004 5:57 PM, loan tran wrote: > So for example here is my file: > 1 5 4 > 1 0 2 > 1 2 2 > 2 0 2 > 3 0 3 > 3 4 6 > And here is the output file I want: > 1 2 2 > 2 0 2 > 3 4 6 not extensively tested: #!/usr/local/bin/perl open(F, "file.txt"); while(){

Re: Assigning fix elements of array into fix variables efficiently

On Monday, August 23, 2004 3:12 AM, Edward Wijaya wrote: > @array = (10,11,12) #fix to three element > > is there any way I can assign each any of these > elements into variable ($A, $B, $C) in a quick way. > Such that $A = 10, $B =11, $C=12 (this is fixed). ($a,$b,$c) = @array;

Re: multiplexing Net::DNS::Nameserver

inary gamble (or maybe a "blind" bet) > and say POE can do it :-) I'm looking at it now... thanks again. Jeremy Kister http://jeremy.kister.net/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: multiplexing Net::DNS::Nameserver

On Wednesday, August 18, 2004 5:56 PM, I wrote: > can anyone give me a clue as to how to use IO::Multiplex on top of > Net::DNS::Nameserver? Is there a more advanced Perl list than perl-beginners, where someone may have hints? I've browsed lists.perl.org but found nothing appropria

multiplexing Net::DNS::Nameserver

can anyone give me a clue as to how to use IO::Multiplex on top of Net::DNS::Nameserver? I'm assuming that $ns->main_loop would go inside the mux_input sub, but am confused on how IO::Multiplex actually gives data to Net::DNS::Nameserver. Thanks, Jeremy Kister http://jeremy.ki

read multi-line banner w/ IO::Socket

e (which could cause it to wait for input) ? I've looked at Net::SMTP, but see that it incorrectly assumes only the first line is the banner. Note that I'm not looking for a solution for only SMTP (where the /200\s/ give me a way to cheat), but a solution to the problem as a whole. Jer

RE: DBI Problem

I have awnsered the questions last night in an updated post. If I didn't say so in that post, the problem is not browser specific. Jeremy > -Original Message- > From: R. Joseph Newton [mailto:[EMAIL PROTECTED] > Sent: Saturday, February 28, 2004 1:53 PM > To: Jeremy

Re: DBI Problem

, or else there would not be a table row returned. This probelm has only happened 2 times, and both were on XP. I have not reproduced this in XP, which I use. It is obviously not a browser rendering issue, since the link text is never sent to the browser. Hope this helps more, Jeremy Bush

DBI Problem

windows xp users, and I have not experienced this problem myself. If someone would like to look at my code, I would be more than happy to send it out. Thanks, Jeremy Bush

finding Process run time

for comparison with another process runtime? (without regexing the time out of the PS list and comparing it to another regexed Process-Time I mean...) Thanx! Mit freundlichen Grüßen, Jeremy F. Jones -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL

RegEx Troubles

Given this in $_ Most popular title searches:"Enterprise" (2001)" why would this regex not put digits in $1 ? $data2 =~ /popular title searches:<\/p>/ Thanks in advance... -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

DBMHashes , a question...

? Jeremy F. Jones -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

WIN32 Services / Scheduled Tasks

(Set Tasks to enable or disable). Any info would be MUCH appreciated! preemptive Thanx! Jeremy -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Process Timestamp?

Hello World! I'm looking for a way to check a Processes age (how long it's been running). Is there a way to do this without installing extra modules? I know ps-ef does it, I was hoping for elegance over the hammer & chisel... (Perl 5.6 is installed) Thanks! Jeremy F. Jones --

thread-safe config parser

well, since no on was able to answer this question: http://nntp.x.perl.org/group/perl.beginners/48453 i'll ask another :) does anyone know of a config parser that i could use in an ithreads environment with multiple threads all reading from (and changing) multiple config files? thx J

help w/ threads::shared

object i'm creating w/ Config::IniFiles->new(); the _rlock _runlock is so any number of threads can read a value simultaneously, while protecting it during a write. any ideas? TIA, jeremy package SupportSite::Config; use threads; use threads::shared; use Exporter; use Error; use Config::In

NetAdmin::UserGetAttributes $flag meaning?

would be really cool... Thanx! Jeremy F. Jones DREGIS Dresdner Global IT-Services Gesellschaft mbH Bankbetrieb Server u. Geschäftsstellenservices (SH GM) Telephone +49 (0) 69 / 2 63 - 82653 Fax

Re: Thread::Queue (Invalid value for shared scalar)

On Tue, 2002-11-05 at 14:34, Jenda Krynicky wrote: > From: Jeremy Vinding <[EMAIL PROTECTED]> > > On Tue, 2002-11-05 at 14:18, Jenda Krynicky wrote: > > > > > > > > Because you'd have a shared reference to a private array. > > > > > &g

Re: Thread::Queue (Invalid value for shared scalar)

On Tue, 2002-11-05 at 14:18, Jenda Krynicky wrote: > > Because you'd have a shared reference to a private array. > > I believe the docs for threads.pm and Thread::Queue explain this. > I'm not using Perl 5.8 yet so I can't tell. they don't but i guess that makes sense, however, 'perldoc threads

Thread::Queue (Invalid value for shared scalar)

does anyone know why I can't enqueue an array ref? the error is this: Invalid value for shared scalar at /usr/lib/perl5/5.8.0/Thread/Queue.pm line 90. TIA, jjv __CODE__ #!/usr/bin/perl use 5.008; use warnings; use strict; use threads; use Thread::Queue; my $q = Thread::Queue->new (); $q->enque

Windows NT / 2K disk usage

Hi, I'm trying to figure Disk Usage on a Win32 system. I don't have access (through a Firewall) to get / install the Win32::AdminMisc module. Any Advice would be most appreciated! Thanx! Jeremy F. Jones DREGIS Dresdner Global IT-Services Gesellschaft mbH Bankbetrieb

Help with STDIN

wrong? It is right below the line #d:\\perl\\bin\\perl.exe. Does it need anything else to function? Is there something wrong with my web server? (IIS 5, with Win 2000 Adv Server). Help ASAP! Thanks very much in advance. Jeremy. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional com

Re: Check for empty array

On Fri, 2002-10-04 at 10:21, [EMAIL PROTECTED] wrote: > or > > if (!$array[0]) { > # it's empty > } > > your choice :) > > dan not quite... try that on this array: @array = qw(0 1 2 3 4 5 6); jjv -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTE

AppConfig problem

hi... i'm trying to use AppConfig, but i'm getting the following error: dir: no such variable at /home/sheila/loserspool/loserspool.conf line 1 when running this code: $config = AppConfig->new ({ERROR => sub {die shift}}); $config->file ('/home/sheila/loserspool/loserspool.conf'); with this

Re: Consolidate if/else

> (!$opt_Z) ? die "Must supply Market\n" : $mkt = $opt_Z; $mkt = $opt_Z || die "Must supply Market\n"; jjv -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: How to do a consecutive grep?

> > @array = ; > @res_grep1 = grep /pattern1/, @array; > @res_grep2 = grep /pattern1/, @res_grep1; > @res_grep3 = grep /pattern1/, @res_grep2; > how about something like: @res = grep { /pattern1/ && /pattern2/ && /pattern3/ } ; jjv -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional

Re: www.roth.net; cannot find server or DNS Error

> Chris Garaffa > use perl; > my %contact_info = (name= "Chris Garaffa", > email = "[EMAIL PROTECTED]", > work= "[EMAIL PROTECTED]", > cell= "203.803.9066" ); i think you mean to use => instead of =

removing duplicate files in a directory

e file 4 because the file size is different than file 1. Can Perl do this? If so, does anyone have any advice/code/hints? Thanks in advance Jeremy T. Miller Software Engineer - DynCorp Centers for Disease Control Atlanta, GA 30333 (404) 639-1883 -- To unsubscribe, e-mail: [EMAIL PROTECTED] F

Problems installing GD

Here's what I've done: - Compiled and installed libpng, libjpg, libz, and libfreetype (2.0.8) (all successfully) - Compiled and installed gd-1.8.4 sucessfully. GD-1.3.8 configures and makes successfully, but when i make test, it fails test #8 (I believe 8 is the freetype test). It doesn't g

RE: finding max value

> > of course, the results still favor sort: > > > > Benchmark: timing 100 iterations of for 10_000 elems, for > 20 elems, sort > > 10_000 elems, sort 20 elems... > > for 10_000 elems: 7 wallclock secs ( 5.11 usr + 0.02 sys = > 5.13 CPU) @ > > 194931.77/s (n=100) > > for 20 elems: 8 wal

RE: finding max value

> >there must be a flaw in my test here: > > > >my @bob = rand for (1..20); > >my @joe = rand for (1..10_000); > > Those. > > my @bob = map rand, 1 .. 20; > my @joe = map rand, 1 .. 10_000; > duh... thx of course, the results still favor sort: Benchmark: timing 100 iterations of for 10_0

RE: finding max value

there must be a flaw in my test here: Benchmark: timing 100 iterations of for 10_000 elems, for 20 elems, sort 10_000 elems, sort 20 elems... for 10_000 elems: 6 wallclock secs ( 4.75 usr + 0.00 sys = 4.75 CPU) @ 210526.32/s (n=100) for 20 elems: 6 wallclock secs ( 4.86 usr + 0.00

changing file attributes

in a certain folder (e.g., L:\Flu\StData\). If there is a better way or another program to do this, can someone direct me to the appropriate tool? Thanks, --- Jeremy T. Miller Centers For Disease Control Atlanta, GA 30333 Ph: (404) 637-1883 Fax: (404) 637

RE: [OT] Hello? Anyone? Like I'm off the list or something

great... all those people begging to get off the list, and now people begging to get on it :) > -Original Message- > From: Etienne Marcotte [mailto:[EMAIL PROTECTED]] > Sent: Monday, November 26, 2001 11:39 > To: [EMAIL PROTECTED] > Subject: [OT] Hello? Anyone? Like I'm off the list or so

RE: don't begin

reening that you intended dig? > -Original Message- > From: Andrea Holstein [mailto:[EMAIL PROTECTED]] > Sent: Monday, September 10, 2001 13:53 > To: [EMAIL PROTECTED] > Subject: Re: don't begin > > > > Jeremy Vinding wrote: > > > &

RE: don't begin

} > > or if you want to be the quickest in the world, try: > > unless ($line =~ /^ (?! [Ldf] ) > (?! LOG_INFO | dhcp | ftpd ) > /x) { > ># line doesn't start with them > } I believe that would also catch lines such as: don't print this line, it does

adding element to array if a match found

rd field1:field2:field3:field5 am I crazy for saying I could do this? Until today I considered myself a novice Perl programmer, but now I'm not so sure. Any help would be greatly appreciated! Thanks Jeremy Lomas -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands,

Help. OS advice needed

I currently use Perl v 5.0005_3 on Sun Solaris 2.6 What are the precautions I need to take if I want to upgrade to Sun Solaris 2.8? Jeremy Parkes