[33128] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 4405 Volume: 11

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Apr 1 05:17:29 2015

Date: Wed, 1 Apr 2015 02:17:06 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)

Perl-Users Digest           Wed, 1 Apr 2015     Volume: 11 Number: 4405

Today's topics:
    Re: [Q] How can I create a binary-distribution? andrewwagnon@gmail.com
        generating PDF with images widecast@gmail.com
    Re: generating PDF with images <justin.1503@purestblue.com>
        Net::SSLeay error messages <rweikusat@mobileactivedefense.com>
        One more reason I like Perl. <see.my.sig@for.my.address>
    Re: Replacing addresses with regex's <justin.1503@purestblue.com>
    Re: Replacing addresses with regex's <m@rtij.nl.invlalid>
    Re: Replacing addresses with regex's <jurgenex@hotmail.com>
    Re: Replacing addresses with regex's <*@eli.users.panix.com>
    Re: REQ: Somewhere to develop Scripts... andrewwagnon@gmail.com
    Re: REQ: Somewhere to develop Scripts... <jurgenex@hotmail.com>
    Re: running Perl scripts w/o extension on Windows 7 <Daniel.A.Mercer@wellsfargo.com>
    Re: running Perl scripts w/o extension on Windows 7 <Daniel.A.Mercer@wellsfargo.com>
    Re: running Perl scripts w/o extension on Windows 7 <lionslair@consolidated.net>
    Re: running Perl scripts w/o extension on Windows 7 jomarbueyes@hotmail.com
    Re: sqlite in-memory as Hash <gravitalsun@hotmail.foo>
        Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Mon, 30 Mar 2015 22:21:10 -0700 (PDT)
From: andrewwagnon@gmail.com
Subject: Re: [Q] How can I create a binary-distribution?
Message-Id: <599be062-7632-41e2-aefb-edcc8f3c8e48@googlegroups.com>

Volker, bruh... Do you even code?


------------------------------

Date: Tue, 31 Mar 2015 06:55:37 -0700 (PDT)
From: widecast@gmail.com
Subject: generating PDF with images
Message-Id: <7a6fa763-021b-49c0-b592-2d31e27ce46e@googlegroups.com>

good day,
I try to generate PDF with images. My code looks like this:

use PDF::API2;
$pdf=PDF::API2->new;
@imgs=( $pdf->image_png('1.png'),
$pdf->image_png('2.png') );
foreach my $img (@imgs)
{
$page = $pdf->page;
$page->mediabox($img->width,$img->height);
$gfx=$page->gfx;
$gfx->image($img,0,0,1);
}
$pdf->saveas('Images_Test.pdf');

--------------------------------

And I get the following problem after program was started:

Unsupported Interlace(1) Method at /usr/share/perl5/PDF/API2/Resource/XObject/Image/PNG.pm line 45.

Would anyone give additional information, what is wrong with PDF::API2?!


------------------------------

Date: Tue, 31 Mar 2015 16:46:13 +0100
From: Justin C <justin.1503@purestblue.com>
Subject: Re: generating PDF with images
Message-Id: <53squb-h4b.ln1@zem.masonsmusic.co.uk>

On 2015-03-31, widecast@gmail.com <widecast@gmail.com> wrote:
> good day,
> I try to generate PDF with images. My code looks like this:
>
> use PDF::API2;
> $pdf=PDF::API2->new;
> @imgs=( $pdf->image_png('1.png'),
> $pdf->image_png('2.png') );
> foreach my $img (@imgs)
> {
> $page = $pdf->page;
> $page->mediabox($img->width,$img->height);
> $gfx=$page->gfx;
> $gfx->image($img,0,0,1);
> }
> $pdf->saveas('Images_Test.pdf');
>
> --------------------------------
>
> And I get the following problem after program was started:
>
> Unsupported Interlace(1) Method at /usr/share/perl5/PDF/API2/Resource/XObject/Image/PNG.pm line 45.
>
> Would anyone give additional information, what is wrong with PDF::API2?!

It appears your PNG is interlaced using a method PDF::API2 does not 
like. Try opening it in an image editing program and saving it without
any interlacing (interlacing is pointless for print or PDF).


   Justin.

-- 
Justin C, by the sea.


------------------------------

Date: Tue, 31 Mar 2015 22:51:27 +0100
From: Rainer Weikusat <rweikusat@mobileactivedefense.com>
Subject: Net::SSLeay error messages
Message-Id: <87vbhg6dk0.fsf@doppelsaurus.mobileactivedefense.com>

While this module documents that it would print SSL errors by default,
it doesn't actually do so.


------------------------------

Date: Tue, 31 Mar 2015 21:38:31 -0700
From: Robbie Hatley <see.my.sig@for.my.address>
Subject: One more reason I like Perl.
Message-Id: <YPednQL8bafY64bInZ2dnUVZ57ydnZ2d@giganews.com>


I was just struggling to get a "substitute replacement string for
pattern" program running in C++, and I finally got it running, but
the size had bloated to 250 lines. And if you count the header
and source files for personal library functions I call, the line
count bloats to a whopping 2187 lines. (And that's not counting
standard library functions called, which I'm sure are hundreds or
thousands more lines.)

Whereas, the Perl version is 10 lines and took me 5 minutes to write:

#! /usr/bin/perl
#  substitute.perl
use v5.14;
use strict;
use warnings;
while (<STDIN>) {
    if (scalar(@ARGV) > 2) {eval "s/$ARGV[0]/$ARGV[1]/$ARGV[2]"}
    else                   {eval "s/$ARGV[0]/$ARGV[1]/"        }
    print;
}

Short, sweet, and functional.

For comparison, the C++ version follows. Sort of like taking a jet
airliner to get across the street; a good exercise for masochists
and fanatics. And, ironically, it isn't even as good, because
the only flag it recognizes is 'g', whereas the Perl version will
correctly interpret whatever flags you type. No, I don't think I'll
be writing any more text processing programs in C++. That's what
Perl is for.



WARNING: NON-MASOCHISTS SHOULD STOP READING HERE.



/************************************************************************************************************\
  * Program name:  Substitute
  * File name:     substitute.cpp
  * Source for:    substitute.exe
  * Description:   Does a s/// style substitution on stdin, writing substituted version to stdout.
  * Author:        Robbie Hatley
  * Date written:  Tue Mar 31, 2015
  * Inputs:        command-line arguments and stdin
  * Outputs:       stdout
  * Notes:         I'm electing to use stdin & stdout instead of files so that this can be used with | < > .
  * To make:       Link with objects rhutil.o and rhregex.o in library "librh.a" in directory "/rhe/lib".
  * Edit History:
  *   Tue Mar 31, 2015 - Wrote the first draft.
\************************************************************************************************************/

#include <iostream>
#include <vector>
#include <string>

// Use assert?  (Undefine "NDEBUG" to use asserts; define it to NOT use them.)
#define NDEBUG
//#undef  NDEBUG
//#include <assert.h>
//d#include <errno.h>

// Use BLAT?  (Define "BLAT_ENABLE" to use BLAT; undefine it to NOT use BLAT.)
//#define BLAT_ENABLE
#undef  BLAT_ENABLE

// Include personal library headers:
#include "rhutil.h"
#include "rhregex.h"

namespace ns_Substitute
{
    using std::cin;
    using std::cout;
    using std::cerr;
    using std::endl;
    using std::flush;

    typedef  std::vector<std::string>   VS;
    typedef  VS::iterator               VSI;
    typedef  VS::const_iterator         VSCI;

    struct Settings_t  // Program settings (boolean or otherwise).
    {
       bool bHelp; // Did user ask for help?
    };

    void
    ProcessFlags       // Set settings based on flags.
    (
       VS          const  &  Flags,
       Settings_t         &  Settings
    );

    int
    CheckArguments    // Checks arguments for validity.
    (
       VS          const  &  Arguments
    );

    void
    Substitute
    (
       VS          const  &  Arguments
    );

    void Help (void);

} // end namespace ns_Substitute


//////////////////////////////////////////////////////////////////////////////
//                                                                          //
//  main()                                                                  //
//                                                                          //
//////////////////////////////////////////////////////////////////////////////

int main (int Beren, char * Luthien[])
{
    using namespace ns_Substitute;

    Settings_t Settings = Settings_t();

    // Get & process flags:
    VS Flags;
    rhutil::GetFlags (Beren, Luthien, Flags);
    ProcessFlags(Flags, Settings);

    // If user wants help, just print help and return:
    if (Settings.bHelp)
    {
       Help();
       return 777;
    }

    // Otherwise, get & check arguments:
    VS Arguments;
    rhutil::GetArguments(Beren, Luthien, Arguments);
    int Result = CheckArguments(Arguments);
    if (42 != Result) return 666;

    // Do the substitutions and print the results:
    Substitute(Arguments);

    // We be done, so scram:
    return 0;
} // end main()


//////////////////////////////////////////////////////////////////////////////
//                                                                          //
//  ProcessFlags()                                                          //
//                                                                          //
//  Sets program settings based on Flags.                                   //
//                                                                          //
//////////////////////////////////////////////////////////////////////////////

void
ns_Substitute::
ProcessFlags
    (
       VS          const  &  Flags,
       Settings_t         &  Settings
    )
{
    BLAT("\nJust entered ProcessFlags().  About to set settings.\n")

    // Use InVec from rhutil:
    using rhutil::InVec;

    Settings.bHelp = InVec(Flags, "-h") or InVec(Flags, "--help"   );

    BLAT("About to return from ProcessFlags.\n")
    return;
} // end ns_Substitute::ProcessFlags()



//////////////////////////////////////////////////////////////////////////////
//                                                                          //
//  CheckArguments()                                                        //
//                                                                          //
//  Checks validity of arguments.                                           //
//                                                                          //
//////////////////////////////////////////////////////////////////////////////

int
ns_Substitute::
CheckArguments
    (
       VS          const  &  Arguments
    )
{
    BLAT("\nJust entered CheckArguments().\n")

    if (!(2 == Arguments.size() || 3 == Arguments.size()))
    {
       cerr
          << "Invalid number of arguments."                                    << endl
          << "Substitute takes 2 or 3 arguments:"                              << endl
          << "RegEx pattern to search for"                                     << endl
          << "Replacement string"                                              << endl
          << "(optional) Flag character (defaults to g for global)"            << endl
                                                                               << endl
          << "Text to be searched is input is via stdin, pipe, or redirect."   << endl
          << "Output is via stdout."                                           << endl;
       return 666;
    }

    BLAT("About to return from CheckArguments.\n")
    return 42;
} // end ns_Substitute::CheckArguments()


//////////////////////////////////////////////////////////////////////////////
//                                                                          //
//  Substitute()                                                            //
//                                                                          //
//  Substitutes a replacement string for matches to a RegEx in some text.   //
//                                                                          //
//////////////////////////////////////////////////////////////////////////////

void
ns_Substitute::
Substitute
    (
       VS          const  &  Arguments
    )
{
    std::string  Pattern      =  Arguments[0];
    std::string  Replacement  =  Arguments[1];
    char Flag =
       (3 == Arguments.size() && 'g' == Arguments[2][0])
       ? 'g'
       : 'n';
    std::string  LineIn       = "";
    std::string  LineOut      = "";

    while (std::getline(cin,LineIn))
    {
       LineOut = rhregex::Substitute(Pattern, Replacement, LineIn, Flag);
       cout << LineOut << endl;
    }
    return;
}



//////////////////////////////////////////////////////////////////////////////
//                                                                          //
//  Help()                                                                  //
//                                                                          //
//  Prints help.                                                            //
//                                                                          //
//////////////////////////////////////////////////////////////////////////////

void
ns_Substitute::
Help
    (
       void
    )
{
    //  12345678901234567890123456789012345678901234567890123456789012345678901234567890
    cout
                                                                                                << endl
    << "Welcome to Substitute, Robbie Hatley's nifty text substitution utility."                << endl
    << "This program searches for a given RegEx pattern in text, and substitutes"               << endl
    << "a given replacement string for each matching substring, similar to"                     << endl
    << "the s/// operator from Sed, Awk, and Perl."                                             << endl
                                                                                                << endl
    << "This version compiled at " << __TIME__ << " on " << __DATE__ << "."                     << endl
                                                                                                << endl
    << "Command-line syntax:"                                                                   << endl
    << "substitute [switches] [arguments] < InputFile > OutputFile"                             << endl
                                                                                                << endl
    << "Switch:                      Meaning:"                                                  << endl
    << "\"-h\" or \"--help\"             Print help and exit."                                  << endl
                                                                                                << endl
    << "Substitute takes 2 or 3 arguments:"                                                     << endl
    << "Arg1: RegEx pattern to search for"                                                      << endl
    << "Arg2: Replacement string (may contain backreferences)"                                  << endl
    << "Arg3 (optional): \'g\' for \"global\"."                                                 << endl
    << "If Arg3 is given and if Arg3 starts with the letter \'g\', then"                        << endl
    << "a \"global\" replace is done. Otherwise, \"global\" is turned off."                     << endl
    << "The text to be searched is input via stdin, redirect, or pipe."                         << endl
    << "The substituted text is output via stdout, redirect, or pipe."                          << endl
                                                                                                << endl;
    return;
} // end ns_Substitute::Help()


And to get that to work, you'd also need the following files:
rhutil.h      (818 lines of code)
rhutil.cpp    (777 lines of code)
rhregex.h     ( 81 lines of code)
rhregex.cpp   (261 lines of code)


-- 
Cheers,
Robbie Hatley
Midway City, CA, USA
perl -le 'print "\154o\156e\167o\154f\100w\145ll\56c\157m"'
http://www.well.com/user/lonewolf/
https://www.facebook.com/robbie.hatley


------------------------------

Date: Mon, 30 Mar 2015 12:12:28 +0100
From: Justin C <justin.1503@purestblue.com>
Subject: Re: Replacing addresses with regex's
Message-Id: <slnnub-vus.ln1@zem.masonsmusic.co.uk>

On 2015-03-28, Robert Crandal <noreply2me@yahoo.com> wrote:
> So, if I have the following string:
>
> "He lives at 550 S. Gutensohn Road near me."
>
> I need to transform it into this new string:
>
> "He lives at ****************** near me."

Is the number of asterisks relevant?

> But, since there are lots of different ways to
> represent a US street address, I am not sure how
> to setup a good regular expression that can cover
> as many addresses as possible.

Don't try to match text that may vary. Match the known quantity.

$str =~ /^He lives at (.*) near me.$/;
$str =~ s/$1/*******************/;


   Justin.

-- 
Justin C, by the sea.


------------------------------

Date: Mon, 30 Mar 2015 22:25:16 +0200
From: Martijn Lievaart <m@rtij.nl.invlalid>
Subject: Re: Replacing addresses with regex's
Message-Id: <c2ooub-eoj.ln1@news.rtij.nl>

On Sat, 28 Mar 2015 17:51:37 +0000, Rainer Weikusat wrote:

> Scott Bryce <sbryce@scottbryce.com> writes:
>> On 3/28/2015 5:23 AM, Robert Crandal wrote:
>>> That is a basic solution that comes to mind
>>
>> But it won't work in Utah where it is not uncommon for an address to
>> look like this:
>>
>> 5643 West 4700 South
>>
>> Or Seattle, where addresses can look like
>>
>> 4567 NE 8th St
>>
>> or
>>
>> 4567 8th Ave NE
>>
>> I'm sure there a lot of other common patterns that you will never be
>> able to identify.
> 
> The problem is that there isn't a common pattern, ie, there is no
> defined/ enforced grammar for 'street addresses' but the OP already
> wrote that he wasn't expecting to be able to match all existing or
> conceivable addresses. OTOH, matching _most_ of the street addresses
> actually appearing in some text (while not matching lots of things which
> aren't addresses) ought to be possible (the only 'common pattern'
> I can see in your examples is that they all contain several sequence of
> lower- and uppercase letters and digits).

Crazy idea, interface with OSM and/or Google maps to see if you can parse 
the address?

M4


------------------------------

Date: Mon, 30 Mar 2015 13:36:18 -0700
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: Replacing addresses with regex's
Message-Id: <srcjha5d487o5etnuo2smdcj341jndjqva@4ax.com>

Scott Bryce <sbryce@scottbryce.com> wrote:
>On 3/28/2015 5:23 AM, Robert Crandal wrote:
>> That is a basic solution that comes to mind
>
>But it won't work in Utah where it is not uncommon for an address to
>look like this:
>
>5643 West 4700 South
>
>Or Seattle, where addresses can look like
>
>4567 NE 8th St
>
>or
>
>4567 8th Ave NE
>
>I'm sure there a lot of other common patterns that you will never be
>able to identify.

Or 
1234 Wallingford

No, it does _not_ have Street or Ave or Pl or whatever.

jue


------------------------------

Date: Tue, 31 Mar 2015 18:57:07 +0000 (UTC)
From: Eli the Bearded <*@eli.users.panix.com>
Subject: Re: Replacing addresses with regex's
Message-Id: <eli$1503311457@qz.little-neck.ny.us>

In comp.lang.perl.misc, Robert Crandal <noreply2me@yahoo.com> wrote:
 ...
> "He lives at ****************** near me."
> 
> But, since there are lots of different ways to
> represent a US street address, I am not sure how
> to setup a good regular expression that can cover
> as many addresses as possible.

This is not what regular expressions are good for and you will never
come up with a "good" answer.

Quote from _Adventures of Sherlock Holmes_

    "Give me a pencil and that slip of paper. Now, then: 'Found at
    the corner of Goodge Street, a goose and a black felt hat. Mr.
    Henry Baker can have the same by applying at 6:30 this evening at
    221B, Baker Street.' That is clear and concise."
    
Addresses with letters after the number are common in the US, as well.
And other variations. An address I used to live at was of the form:

    116 1/2 Main Street

The half was important because it was the back lot of the property with
a shared driveway.

Another address I used to live at was of the form:

    23-11 39th St

The hyphen was important because addresses there use a coordinate
system. That's house 11 closest to 23rd Avenue. 2-311 or 231-1 would
be a totally different place.

I've known places in California with addresses like:

    7970 Highway 1

Sometimes spelled:

    7970 Highway One

In NYC, "The Bowery" has no "Street", "Place", "Avenue", whatever. You'd
use one of these, probably the second

    40 The Bowery
    40 Bowery

There are rural addresses in the US like:

    Rumsey Farm County Road 43

Want to give up yet?

Elijah
------
this way leads to a world of pain


------------------------------

Date: Mon, 30 Mar 2015 22:24:50 -0700 (PDT)
From: andrewwagnon@gmail.com
Subject: Re: REQ: Somewhere to develop Scripts...
Message-Id: <5562849c-0788-42d5-a4a5-dcf84122ff8f@googlegroups.com>

Nick,

You still need an account bro?


------------------------------

Date: Tue, 31 Mar 2015 08:12:56 -0700
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: REQ: Somewhere to develop Scripts...
Message-Id: <n5elhalfejkh9dlcft134002kp9u7kilk6@4ax.com>

andrewwagnon@gmail.com wrote:
>Nick,
>
>You still need an account bro?

19 years and 3 month later! I am truely impressed. 
To the best of my knowledge this is so far the most any googliot ever
managed. 
Congratulations for proving the level of your intelligence beyond any
doubt.

jue


------------------------------

Date: Mon, 30 Mar 2015 04:52:43 -0500
From: damercer2850 <Daniel.A.Mercer@wellsfargo.com>
Subject: Re: running Perl scripts w/o extension on Windows 7
Message-Id: <hsOdnf-qOO52gYTInZ2dnUU7-WWdnZ2d@giganews.com>

First, determine what path extensions are set - I have two for perl, .pl that executes under \Perl\bin\perl.exe and .plx for windowing programs that execute
under \Perl\bin\wperl.exe, an ActiveState version that doesn't bring up a console window.
c:\>echo %pathext%
COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH;.MSC;.plx;.sh;.ksh;.csh;.sed;.awk;.pl
To add an extension, go to Start=>Control Panel=>System=>Advanced System Settings.
Select the Advanced Tab from the System Properties dialog. Click on environment variables. Select PATHEXT from System variables and make your change. While you're there you should add \Perl\bin (or whatver) and the directory where your perl scripts reside (in my case \Bin) to your Path variable.
You need to restart any Dos boxes you had open. For instance, if I type
'where' I get a help message from where.pl. If i type Trac it brings up Trac.plx,  an interface to the Trac problem tracking system

Dan Mercer







------------------------------

Date: Mon, 30 Mar 2015 04:53:46 -0500
From: damercer2850 <Daniel.A.Mercer@wellsfargo.com>
Subject: Re: running Perl scripts w/o extension on Windows 7
Message-Id: <HKednSKeAd-3gITInZ2dnUU7-dGdnZ2d@giganews.com>

Without an extension, no.  Your file must have an extension. Microsoft uses the extension to associate the file with another program.  The trick is to set up
The PATH and PATHEXT variables to recognize your file and then associate that extension with the perl executable.  You change variables in Start=>Control Panel=>System=>Advanced System Settings.  This brings up the System Properties dialog. You can also right click on Computer in File Explorer and select Properties.
In the System Properties dialog select the Advanced tab and click on the Environment Variables button.  The Pat and PATHEXT variable elements are semi-colon delimited.
To associate a file type click on Start=>Default Programs=>Associate a file type or protocol with a program.
I have two extensions defined - .pl and .plx.  The second is for windowing perl programs (toolbars, etc) and executes \Perl\bin\wperl - ActivePerl's executable that does not bring up a console window.
When invoking the function, you would only need to specify the extension if there was conflict with another program (a .exe, for instance) higher in the Path.  I avoid this problem by putting my program directory first.

Dan Mercer




------------------------------

Date: Mon, 30 Mar 2015 21:51:37 -0500
From: Martin Eastburn <lionslair@consolidated.net>
Subject: Re: running Perl scripts w/o extension on Windows 7
Message-Id: <gZnSw.118209$tF6.59914@fx11.iad>

I use .pl for my window 7 folder files.  I run them under a command 
prompt dos window.  I use perl64

Martin



On 3/30/2015 4:52 AM, damercer2850 wrote:
> First, determine what path extensions are set - I have two for perl, .pl that executes under \Perl\bin\perl.exe and .plx for windowing programs that execute
> under \Perl\bin\wperl.exe, an ActiveState version that doesn't bring up a console window.
> c:\>echo %pathext%
> .COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH;.MSC;.plx;.sh;.ksh;.csh;.sed;.awk;.pl
> To add an extension, go to Start=>Control Panel=>System=>Advanced System Settings.
> Select the Advanced Tab from the System Properties dialog. Click on environment variables. Select PATHEXT from System variables and make your change. While you're there you should add \Perl\bin (or whatver) and the directory where your perl scripts reside (in my case \Bin) to your Path variable.
> You need to restart any Dos boxes you had open. For instance, if I type
> 'where' I get a help message from where.pl. If i type Trac it brings up Trac.plx,  an interface to the Trac problem tracking system
>
> Dan Mercer
>
>
>
>
>


------------------------------

Date: Tue, 31 Mar 2015 10:26:38 -0700 (PDT)
From: jomarbueyes@hotmail.com
Subject: Re: running Perl scripts w/o extension on Windows 7
Message-Id: <f9f9df65-8884-4137-81af-5073f9abe45b@googlegroups.com>

On Monday, March 30, 2015 at 5:52:47 AM UTC-4, damercer2850 wrote:
> First, determine what path extensions are set - I have two for perl, .pl =
that executes under \Perl\bin\perl.exe and .plx for windowing programs that=
 execute
> under \Perl\bin\wperl.exe, an ActiveState version that doesn't bring up a=
 console window.
> c:\>echo %pathext%
> COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH;.MSC;.plx;.sh;.ksh;.csh;.=
sed;.awk;.pl
> To add an extension, go to Start=3D>Control Panel=3D>System=3D>Advanced S=
ystem Settings.
> Select the Advanced Tab from the System Properties dialog. Click on envir=
onment variables. Select PATHEXT from System variables and make your change=
 . While you're there you should add \Perl\bin (or whatver) and the director=
y where your perl scripts reside (in my case \Bin) to your Path variable.
> You need to restart any Dos boxes you had open. For instance, if I type
> 'where' I get a help message from where.pl. If i type Trac it brings up T=
rac.plx,  an interface to the Trac problem tracking system
>=20
> Dan Mercer

Hi Dan,

Thank you very much for your response. I has afraid that this would be the =
case. That is, in Windows files MUST have an extension. The problem of addi=
ng the extension is that I use 'rsync' to keep in synch the computers I use=
 . If the Windows file have an extension, 'rsync' would copy everything each=
 time I try to synch (then I'd need to run a script that adds the extension=
s).=20

I'll test whether your suggestion makes things slightly better.

Thank you again,

Jomar



------------------------------

Date: Tue, 31 Mar 2015 23:55:30 +0300
From: George Mpouras <gravitalsun@hotmail.foo>
Subject: Re: sqlite in-memory as Hash
Message-Id: <mff1k3$qfc$1@news.grnet.gr>

On 24/3/2015 2:32 μμ, Peter Makholm wrote:
> George Mpouras <gravitalsun@hotmail.foo> writes:
> And using tied variable you can make it look like a real hash.


OO make your code slower than plain subroutines
tie make your code slower than OO
if speed is not a issued tie is great (and I like it)




------------------------------

Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin) 
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>


Administrivia:

To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.

Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests. 

#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.


------------------------------
End of Perl-Users Digest V11 Issue 4405
***************************************


home help back first fref pref prev next nref lref last post