Re: help with compiling on win2000 with vs.net

lonnie percent wrote: INCLUDE=C:\Program Files\Microsoft Visual Studio .NET 2003\SDK\v1.1\include\;C:\Program Files\Microsoft Visual Studio .NET\Frame LIB=C:\Program Files\Microsoft Visual Studio .NET 2003\SDK\v1.1\Lib\;C:\Program Files\Microsoft Visual Studio .NET\Fra meworkSDK\ *Path is

Re: Here construct not working

John, Thanks. That's it. At 07:27 PM 7/1/04 -0700, John W. Krahn wrote: >On Thursday 01 July 2004 18:59, David Arnold wrote: >> >> All, > >Hello, > >> For this: >> >> #! /usr/bin/perl -w >> # file: stein_test_DBI_table.pl >> >> use strict; >> use Tie::DBI (); >> >> my $DB_NAME = 'test_www'; >> my

Re: Here construct not working

On Thursday 01 July 2004 18:59, David Arnold wrote: > > All, Hello, > For this: > > #! /usr/bin/perl -w > # file: stein_test_DBI_table.pl > > use strict; > use Tie::DBI (); > > my $DB_NAME = 'test_www'; > my $DB_HOST = 'localhost'; > > my %test_users = ( > 'root'=> [qw(user,authors,admin

Re: Here construct not working

On 7/1/2004 9:59 PM, David Arnold wrote: All, For this: #! /usr/bin/perl -w # file: stein_test_DBI_table.pl use strict; use Tie::DBI (); my $DB_NAME = 'test_www'; my $DB_HOST = 'localhost'; my %test_users = ( 'root'=> [qw(user,authors,admin 5 superman)], ^ ^

Here construct not working

All, For this: #! /usr/bin/perl -w # file: stein_test_DBI_table.pl use strict; use Tie::DBI (); my $DB_NAME = 'test_www'; my $DB_HOST = 'localhost'; my %test_users = ( 'root'=> [qw(user,authors,admin 5 superman)], 'george' => [qw(users 3 jetson)], 'winnie' => [qw(user,authors

Re: Using Perl on a UNIX box where you have no ADMIN rights....

Jason, JC> I want to use perl thats installed on a server JC> here at work. I want to install modules that will JC> enhance my scripts, avoiding having to do calls JC> to the shell for things that perl already has in JC> place. How can i do this? I know that its more of JC> a unix question, but I

Re: Tie::DBI

All, Never mind. It was a permissions problem. I downloaded the gz file, unzipped and untarred and read the installation directions and found the problem. Thanks, anyway. At 04:10 PM 7/1/04 -0700, David Arnold wrote: >All, > >Tried to install Tie::DBI from CPAN but it failed to install. I got: >

Tie::DBI

All, Tried to install Tie::DBI from CPAN but it failed to install. I got: cpan> install Tie::DBI ... ... ... ... t/DBI.t 32 15 46.88% 9-11 13 15 17 21 23-27 30-32 t/RDBM.t 255 6528020 36 180.00% 3-20 Failed 2/2 test scripts, 0.00% okay. 33/52 subtests failed, 36.5

Re: printing 10 scalers/elements

On Thursday 01 July 2004 15:57, John W. Krahn wrote: > > On Thursday 01 July 2004 05:48, [EMAIL PROTECTED] wrote: > > > > I am trying to figure out how to print 8 scalers/elements then \n, > > then 5 more lines of 8 or less for a max total of 40 Here is my > > code: > > > > print FILEOUT "eject 0,

Re: printing 10 scalers/elements

On Thursday 01 July 2004 05:48, [EMAIL PROTECTED] wrote: > > I am trying to figure out how to print 8 scalers/elements then \n, > then 5 more lines of 8 or less for a max total of 40 Here is my > code: > > print FILEOUT "eject 0,0,0 "; > my $count = `wc -l <$ejectapes`; > > if ($count <= 40 ) { >

Re: OT - Perl editing with colors

* Ohad Ohad <[EMAIL PROTECTED]> [2004-07-01 21:49]: > Say I edit perl script with nedit or gvim and color highlight the syntax. > Is there anyway I can print the file WITH the colors? > > I guess it means saving the colored file to some other format I just have > no idea how to do it. In vim you

Re: using the system command

On Thursday 01 July 2004 11:34, Adamiec, Larry wrote: > > I am running perl version 5.8.0 on a Sun Solaris 9.0 machine. > > Given the following bit of code: > > $SOME_FILE = $_; > chomp($SOME_FILE); > $SOME_SAFE_FILE = $SOME_FILE . "_lax"; > system ("cp '$SOME_FILE' '$SOME_S

Re: Using the () list notation with $scalars

John W. Krahn wrote: On Thursday 01 July 2004 14:30, Rob Benton wrote: I'm looking for a little help here. I'm not understanding exactly what's wrong with this code: === #!/usr/bin/perl -w use strict; open IN, " my %rows; while () { c

Re: Using the () list notation with $scalars

On Thursday 01 July 2004 14:30, Rob Benton wrote: > > I'm looking for a little help here. I'm not understanding exactly > what's wrong with this code: > > === > #!/usr/bin/perl -w > > use strict; > > open IN, " > my %rows; > > while () >

Re: Using the () list notation with $scalars

Rob Benton wrote: $rows{$fields[2]} = [ ($fields[3]..$fields[-1]) ]; Depending on what the fourth and last elements in @fields contain, that range can be very, very long... I think this is what you mean: $rows{$fields[2]} = [ @fields[3..$#fields] ]; -- Gunnar Hjalmarsson Email: http://www

RE: Using the () list notation with $scalars

Rob Benton <[EMAIL PROTECTED]> wrote: : I'm looking for a little help here. I'm not understanding exactly : what's wrong with this code: : : === : #!/usr/bin/perl -w : : use strict; : : open IN, ") : { : chomp; : my @field

Re: Using the () list notation with $scalars

On Jul 1, Rob Benton said: > $rows{$fields[2]} = [ ($fields[3]..$fields[-1]) ]; You're doing two things wrong: the '..' operator needs to be INSIDE the subscript. @fields[$lower .. $upper] The other thing is that you can't do a range like that. If you want to get the elements from [3] t

Using the () list notation with $scalars

I'm looking for a little help here. I'm not understanding exactly what's wrong with this code: === #!/usr/bin/perl -w use strict; open IN, " my %rows; while () { chomp; my @fields = split( /,/, $_); $rows{$fields[2]} = [ ($f

RE: printing 10 scalers/elements

[EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote: : I am trying to figure out how to print 8 scalers/elements : then \n, then 5 more lines of 8 or less for a max total : of 40 Here is my code: : : print FILEOUT "eject 0,0,0 "; : my $count = `wc -l <$ejectapes`; [snip] How about: use strict; u

RE: printing 10 scalers/elements

Ok well that might be what you are looking for, but also check out format, link below: http://www-cgi.cs.cmu.edu/Web/People/rgs/pl-format.html or perldoc perlform It should be an easy matter to format your output to however many columns you want. Chris Hood Chris Hood Investigator Verizon

Re: printing 10 scalers/elements

[EMAIL PROTECTED] wrote: I am trying to figure out how to print 8 scalers/elements then \n, then 5 more lines of 8 or less for a max total of 40 Here is my code: print FILEOUT "eject 0,0,0 "; my $count = `wc -l <$ejectapes`; One idea: my @elem = split ' ', $count; @elem = splice @elem, 0,

RE: using the system command

> > > > > > I am running perl version 5.8.0 on a Sun Solaris 9.0 machine. > > > > Given the following bit of code: > > > > use strict; > use warnings; > > > $SOME_FILE = $_; > > chomp($SOME_FILE); > > $SOME_SAFE_FILE = $SOME_FILE . "_lax"; > > system ("cp '$SOME_FILE'

RE: using the system command

> > I am running perl version 5.8.0 on a Sun Solaris 9.0 machine. > > Given the following bit of code: > use strict; use warnings; > $SOME_FILE = $_; > chomp($SOME_FILE); > $SOME_SAFE_FILE = $SOME_FILE . "_lax"; > system ("cp '$SOME_FILE' '$SOME_SAFE_FILE'"); This is

Re: use, require or none of the above?

On Thu, 1 Jul 2004 11:14:51 -0600, Wiggins d Anconia wrote > > non-descript. Definitely a lot of extra punctuation that would be more > difficult to read for me and an easy way for syntax errors to creep > in, but to each their own. Interesting - I have found that the extra braces actually reduc

Re: using the system command

> > I am running perl version 5.8.0 on a Sun Solaris 9.0 machine. > > Given the following bit of code: > use strict; use warnings; > $SOME_FILE = $_; > chomp($SOME_FILE); > $SOME_SAFE_FILE = $SOME_FILE . "_lax"; > system ("cp '$SOME_FILE' '$SOME_SAFE_FILE'"); This is

using the system command

I am running perl version 5.8.0 on a Sun Solaris 9.0 machine. Given the following bit of code: $SOME_FILE = $_; chomp($SOME_FILE); $SOME_SAFE_FILE = $SOME_FILE . "_lax"; system ("cp '$SOME_FILE' '$SOME_SAFE_FILE'"); open (IN_FILE, "$SOME_FILE" ); open (TMP_OUT_

Re: Source from another file

> Is it possible to put sub-functions in one file and include them into > another Perlscript. > > For example : > > file1.pl = Has functions for printing a text > > file2.pl = Includes the file1.pl and uses the printing function > Check the docs for 'use', 'require', and 'do'... perldoc -f us

Re: use, require or none of the above?

Please bottom post... > Great, thanks for the detailed response. I have read the docs several times, > but each time it becomes a little less clear... > > I like the extra braces because they look pretty in syntax-highlighting > editors. I am always using strict. Not sure what the second call

Re: PERL Error when running MIME::Lite

Please bottom post... > > I looked at perldoc CPAN for "5 as you stated below, and didn't find anything there. It seems like there are some information missing as to how I would install modules and use them without being root. Where you stated "by configuring the 'makepl_arg' setting in CPAN", I

Re: Using Perl on a UNIX box where you have no ADMIN rights....

AWESOME!! Thanks! zentara <[EMAIL PROTECTED]> wrote:On Wed, 30 Jun 2004 10:27:22 -0700 (PDT), [EMAIL PROTECTED] (Jason Corbett) wrote: >I want to use perl thats installed on a server here at work. I want to install >modules that will enhance my scripts, avoiding having to do calls to the shell

Source from another file

Is it possible to put sub-functions in one file and include them into another Perlscript. For example : file1.pl = Has functions for printing a text file2.pl = Includes the file1.pl and uses the printing function /juman -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-m

Re: OT - Perl editing with colors

Try % perltidy -html perlfile.pl It works very well for prettyprinting with colors. Best, Damon Ohad Ohad wrote: Say I edit perl script with nedit or gvim and color highlight the syntax. Is there anyway I can print the file WITH the colors? -- Damon Allen DAVISON http://www.allolex.net -- To unsub

Re: use, require or none of the above?

Great, thanks for the detailed response. I have read the docs several times, but each time it becomes a little less clear... I like the extra braces because they look pretty in syntax-highlighting editors. I am always using strict. Not sure what the second call was or what looked weird about it

Re: Checking for Senders via POP3

Yes, in the same way you get the data from "From: " header. Josimar - Original Message - From: "John" <[EMAIL PROTECTED]> To: "Perl Beginners" <[EMAIL PROTECTED]> Sent: Thursday, July 01, 2004 3:19 AM Subject: Re: Checking for Senders via POP3 > I checked again the code and it worke

Re: PERL Error when running MIME::Lite

I looked at perldoc CPAN for "5 as you stated below, and didn't find anything there. It seems like there are some information missing as to how I would install modules and use them without being root. Where you stated "by configuring the 'makepl_arg' setting in CPAN", I would like more informati

Re: OT - Perl editing with colors

http://www.textpad.com has an "Edit->Copy Other -> html" if that might help. On Thu, 01 Jul 2004 16:03:10 +, Ohad Ohad wrote > Say I edit perl script with nedit or gvim and color highlight the syntax. > Is there anyway I can print the file WITH the colors? > > I guess it means saving the colo

OT - Perl editing with colors

Say I edit perl script with nedit or gvim and color highlight the syntax. Is there anyway I can print the file WITH the colors? I guess it means saving the colored file to some other format I just have no idea how to do it. Thanks _

Re: use, require or none of the above?

> I have read the docs but I'm still not quite clear on the difference between > use and require and if either is even needed. > The two key differences are that 'use' happens at compile time, rather than runtime, and that 'use' automatically calls the 'import' function of the module just loaded

Re: Net::SMTP error handling

> "Unless otherwise stated all methods return either a *true* or *false* > value, with *true* meaning that the operation was a success." > > So sayeth the perldocs, but where is information about the error? With docs > like this do you assume it's ${!}, or could it be that other thing (I think I

Close Windows Program if running

I have a backup script that my laptop users use to backup up there systems to a networked drive. Is there a way using perl to see if outlook is open and then if it is open to close it gracefully? It would need to be able to detect dialog boxes such as do you want to empty your deleted items folder

RE: pattern matching binary or garbage characters in string

Thanks to all that helped with this problem, and thanks especially to RandyS as he hit the nail on the head. Here is the final working code block below. while () { chop $_ ; if( (/JUNIPER/) || (/REDBACK/) ){ print DSL $_ . "\n"; } else {

Re: Checking for Senders via POP3

Yeap, Net::POP3 works great for me. Thanks!! - Original Message - From: "Gunnar Hjalmarsson" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Thursday, July 01, 2004 12:59 PM Subject: Re: Checking for Senders via POP3 > [ Please do not quote the whole message you respond to, but stri

RE: :Socket for http download

Ramprasad A Padmanabhan wrote: > I want to write a basic http download ( text/binary) script using > IO::Socket. Does anyone have any examples anywhere. > > > I know ,everyone must be wondering why I cant use ready modules like > LWP. > Well I want to auto transfer files to different remote machi

Re: PERL Error when running MIME::Lite

Thank you. That was a more clearer answer. Good day! Wiggins d Anconia <[EMAIL PROTECTED]> wrote: > jason corbett wrote: > > How can I install it when I don't have root rights to place it in the bin? > > First, please reply to the list. Second, either get the person who does have > root acces

Broken links

Hi All, I'm still very much learning and need a little help getting started w/ my next project... :-) I manage a web site that has links to other web sites (MSDS - material safety data sheets). When the web sites that I'm linking to change their pages, my links break. I need to create a program

Re: PERL Error when running MIME::Lite

> jason corbett wrote: > > How can I install it when I don't have root rights to place it in the bin? > > First, please reply to the list. Second, either get the person who does have > root access to install the module or install it locally in your home dir and add > it to your @INC (someone els

RE: :Socket

Werner Otto wrote: Keep the discussion on the list please. > Bob Showalter wrote: > > ... > > What platform and what version of Perl and IO::Socket? If I fix the > > missing comma, it times out properly for me with Perl 5.6.1 on > > FreeBSD 4.10 > > > SunOS 5.8 This is perl, v5.8.0 built for s

IO::Socket for http download

I want to write a basic http download ( text/binary) script using IO::Socket. Does anyone have any examples anywhere. I know ,everyone must be wondering why I cant use ready modules like LWP. Well I want to auto transfer files to different remote machines. and these machines ( in all flavors of u

How to control windows audio mixer

Hi, Does anyone know how to control the windows audio mixer from perl. I'm trying to control the volume of my line in on my sound blaster card but I haven't found any examples that show me how to do it. Any help would be appreciated. Thanks, Brian -- To unsubscribe, e-mail: [EMAIL PROTECTE

printing 10 scalers/elements

All, I am trying to figure out how to print 8 scalers/elements then \n, then 5 more lines of 8 or less for a max total of 40 Here is my code: print FILEOUT "eject 0,0,0 "; my $count = `wc -l <$ejectapes`; if ($count <= 40 ) { while() { chomp $_; prin

RE: :Socket

Werner Otto wrote: > Hi All, > > I have the following problem. > > _Code:_ > #!/usr/bin/perl > use IO::Socket; > > my $host=shift @ARGV or die 'need hostname'; > my $port=shift @ARGV or die 'need port number'; > my $timeout=1; > my $socket=IO::Socket::INET->new(PeerAddr=> $host, > PeerPo

IO::Socket

Hi All, I have the following problem. _Code:_ #!/usr/bin/perl use IO::Socket; my $host=shift @ARGV or die 'need hostname'; my $port=shift @ARGV or die 'need port number'; my $timeout=1; my $socket=IO::Socket::INET->new(PeerAddr=> $host, PeerPort => $port, Proto => 'tcp', Type =

Test. Please ignore.

This is test. Outlook Express gives the annoying warning, 'A program is trying to access e-mail addresses stored in Outlook. Do you want to allow this?' -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Checking for Senders via POP3

[ Please do not quote the whole message you respond to, but strip the parts that are not needed for context. Type your follow-up below the quoted part, i.e. do not "top-post". ] John wrote: Gunnar Hjalmarsson wrote: John wrote: I want to check for specific senders (in my inbox) connecting to the Ma

re: Progress.......

Hi Thanx for all your help. With the time diffrence I only get the reply's in the moring. Thanx a lot for the group's help. Charlene On Wed, 30 Jun 2004 08:12:00 +0200, [EMAIL PROTECTED] (Charlene Gentle) wrote: >Thanx for the help Zentara. Here are a part of my code. I know that >I'm do

Re: help with compiling on win2000 with vs.net

lonnie percent wrote: thanks - I got a little further but still no cigar. now I get perlglob.c(6) : fatal error C1083: Cannot open include file: 'stdio.h': No such file or directory NMAKE : fatal error U1077: 'cl' : return code '0x2' Stop. I have C:\PROGRA~1\MICROS~3.NET\VC7\include in my path

Re: Mail::POP3Client Doesn't Work on Win32 perl

Sorry, let me do this later because I haven't this script at my workplace, only at my home PC. Could you give me the script which you use to check POP3? - Original Message - From: "Nicolay A. Vasiliev" <[EMAIL PROTECTED]> To: "John" <[EMAIL PROTECTED]> Sent: Thursday, July 01, 2004 9:49