Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

(RhetTbull) Re: Re: Runtime module use and sub definitions

by RhetTbull (Curate)
on Apr 03, 2002 at 21:21 UTC ( #156448=note: print w/replies, xml ) Need Help??

in reply to Re: Runtime module use and sub definitions
in thread Runtime module use and sub definitions

I like that much better than the string eval. I tried this and it seems to work fine:
#!/usr/bin/perl use strict; use warnings; if ($^O eq 'MSWin32') { eval { require Win32::OLE; Win32::OLE->import; }; *bar = sub { print "Win32\n" }; } else { *bar = sub { print "Not Win32\n" }; } #later in the program... #we don't care what OS is running -- implementation details are hidden bar();

Replies are listed 'Best First'.
Re: (RhetTbull) Re: Re: Runtime module use and sub definitions
by perrin (Chancellor) on Apr 03, 2002 at 23:24 UTC
    You can leave out that eval completely, unless you intend to check for errors during the require and import statements.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://156448]
[Tux]: Corion++ hippo++
[ovedpo15]: it isn't homework. its a module I use at work. The process to add additional module isn't worth it. p.s never heard a university course which teach perl
[marto]: there are many, to this day.
[ovedpo15]: @Corion Yes I use the regex you showed me. its very good regex. although now i need to know that substring unit that comma
marto mad corrections to one around 18 months ago
[ovedpo15]: my code checks the value after that comma, if it isn't valid it will remove it. so I would like to remove the substring after that comma meaning getting the string before comma.
[hippo]: Are you sure that Text::CSV_XS isn't already installed at your work? It's such a useful module that it might well be there.
[marto]: pointing out the advantages of cpan modules is well worth in, as both developer and $client/$company benefit greatly
[Tux]: $src =~ m{^(.*),(.*)$/ and $2 !~ $valid and $src = $1;
[Tux]: s,/,},

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (9)
As of 2018-05-27 10:49 GMT
Find Nodes?
    Voting Booth?