57109_20130514.dat";
>
> #my ($file, $flags, $dbh) = @_;
>
> # define data source
> # $dbh->func('CRU_in', 'CSV', $file, $flags, 'ad_catalog');
> $dbh->func('CRU_in', 'Pipe', $file, $flags, 'ad_catalog');
>
> #
; yes, i know i can simply try it, to see if it works - but is there a more
> general rule one can follow that
> tells them when this kind of thing can normally be used, versus when not?
Start with 'perldoc perlvar'. It is the first one listed under General
Variables.
HTH
--
Brian
Dan,
Tk::Button only allows for text in a single font, as you have probably
discovered. However, it does let you use an image. If you can render the text
you want as an image (e.g. GD?), that that might be a way to go.
HTH
--
Brian Raven
From: perl-win32-users-boun
;
> }
> sub2(\&subroutine);
> sub sub2 {
> &sub3 = &{$_[0]}; #problem is obviously here with this line, seems its not
> being dereference
> sub3('world');
The only variable types are scalar array and hash. There is no subroutine
variable type, but you can
oogled' the word 'mysplit' and find no results.
>
> might anyone know exactly what 'mysplit' is?
I may have misunderstood your question, but mysplit is the sub defined above
(see ^^^).
HTH
--
Brian Raven
Please consider the en
data because I am broken" is to use a
heartbeat mechanism, i.e. a sender will send a heartbeat message at regular
intervals, that can be checked by the receiver.
Welcome to network programming.
HTH
--
Brian Raven
Please consider the environment before pri
re the OP
downloading from google maps, for example, he might find that they don't like
the idea of anybody downloading a lot of files in a short period (see
https://developers.google.com/maps/faq#usagelimits).
HTH
--
Brian Raven
Please consider the en
Not the first time a question like this has been asked. Take a look at this
link, which may point you in a useful direction.
http://www.perlmonks.org/?node_id=170334
--
Brian Raven
From: perl-win32-users-boun...@listserv.activestate.com
[mailto:perl-win32-users-boun
e output the
>error message, that is. However, I would be careful about doing this as there
>could be some odd side effects, depending on how the modules that you use
>behave.
It might be worth looking for alternate method of achieving your desired
result, which isn't entirely clea
tter to assign
the parameters to local variables with appropriate names, rather than relying
on a comment. For example...
sub write_fp_data {
my $file_pointer = shift;
my $data_value = shift;
print $file_pointer $data_value;
}
HTH
--
Brian Raven
Please consider the environment b
155) {
>$cs_keys{$key} =~ s{/Zones/}{/Lockdown_Zones/}
> }
>
> I just got hung up on using the map line...
Perhaps I am missing something, but sequential numeric keys suggest array
rather than hash to me.
HTH
--
Brian Raven
Please consider the environment before printing this e-mail.
however you do it,
keeping a backup of the original may be a good idea.
As for the how to do it part, Tie::File has already been suggested, which may
be a good fit for what you want to do. If your file is small enough to fit in
memory, then File::Slurp may be worth a look, particularly the edi
::AnyData'), it looks like
>you are creating an in memory table with ad_import, but I can see no sign of
>the updated table being saved with ad_export. Possibly ad_catalog would do
>what you want.
[N.B. I haven't used DBD::AnyData, but it looks interesting. Thanks for the
pointer.]
should see a printed value of 128, wouldn't you think? But no, it prints:
> "hash has 0 keys". What's up wit > dat? What obvious thing am I missing?
That's correct, because you have not added any keys.
HTH
--
Brian Raven
Please consider the environment before
e it is probably autoloaded. A case
insensitive search of CGI.pm for 'autoload' may give a bit more insight.
It's possible that your web client doesn't handle xhtml, which is the default
style now. In which case it is probably better to specify the -no_xhtml pragma
rather t
le...
use strict;
use warnings;
use Win32API::File qw{GetLogicalDriveStrings};
use File::Find;
my $dstring;
my $olen = GetLogicalDriveStrings(26*4+1, $dstring);
my @drives = map {s|\\|/|g; $_}
grep {stat($_)}
split "\000", $dstring;
print "Drives [
, and with
> 'output line seperator' $\ (which would be used for - print "something\n", as
> in writing to files). but ive
> never heard of the 'pattern matching seperator' - which i think i would need
> in this case.
Without the /s modifier, . matches any
27;L'/
>
> thanks for helping me with my understanding of this.
Assuming trailing white space, then qr{\\L(ength)?\b} should match both.
However, depending on what you are trying to achieve, it might be advisable to
use a module that knows how to parse PDF files.
HTH
--
Brian Rave
same.
I would expect the undef to be unnecessary. Unless you stored a reference to
the array somewhere during that scope, it will get garbage collected when the
scope exits. If you wanted to recover the memory before the end of scope for
some reason, although I can't think of a good one
32-File-VersionInfo-0.03/VersionInfo.pm
HTH
--
Brian Raven
Please consider the environment before printing this e-mail.
This e-mail may contain confidential and/or privileged information. If you are
not the intended recipient or have received this e-mail in error, please advise
the sende
uming that you can locate the executable ($0 perhaps), then either
Win32::File::VersionInfo or Win32::Exe should get you that.
HTH
--
Brian Raven
Please consider the environment before printing this e-mail.
This e-mail may contain confidential and/or privileged information. If you are
e something in the delta documentation for core modules (see perldoc
perl.*delta). For non core modules, their Changes file might be useful.
HTH
--
Brian Raven
Please consider the environment before printing this e-mail.
This e-mail may contain confidential and/or privileged information. If y
Find::Rule to the later version
> > (Perl as well, if you can). It might make a difference.
> >
> > HTH
> >
> >
> > --
> > Brian Raven
> >
>
> Thank you both so much for testing this. Nice to know I'm not crazy or
> stupid - this time. I also realiz
test/84-33 Kland, Dan/test2.pl
>
> =
> == 7b >>84-32<<
>
> D:/My Documents/projects/dave/test/should-print.txt
> D:/My Documents/projects/dave/test/84-33 (Kland, Dan)/test.pl D:/My
> Documents/projects/dave/test/84-
rom Getopt::Long, to
> be re-used later, without
> breaking STDERR?
> By the way, I am using Perl V5.8.9
The easiest way may be to use a temporary $SIG{__WARN__} handler to capture
warnings from GetOptions, e.g. something like...
{
# Capture warnings from GetOptions
local $SIG{__WAR
> Yes, I've been convinced to use Text::CSV, but for some reason the
> ActiveState ppm does not actually install it. It complains about not
> being able to find some other module that it depends on.
Don't know if it helps, but I seem to have installed Text::CSV_XS on
A
--
Brian Raven
> -Original Message-
> From: perl-win32-users-boun...@listserv.activestate.com [mailto:perl-
> win32-users-boun...@listserv.activestate.com] On Behalf Of Barry Brevik
> Sent: 04 November 2011 23:56
> To: perl Win32-users
> Subject: Help with error
n I use the following code to assign $msg.
>
> $msg = $element->as_trimmed_text();
>
> (where element points to this line in an htm file.)
Try using some other means of getting the test, for example $element->as_text.
See 'perldoc HTML::Element' for more info.
HTH
--
> -Original Message-
> From: perl-win32-users-boun...@listserv.activestate.com [mailto:perl-
> win32-users-boun...@listserv.activestate.com] On Behalf Of Brian Raven
> Sent: 03 November 2011 10:37
> To: perl Win32-users
> Subject: RE: How to Extract a Date from a File
&g
;
defined $root or die "Failed to parse\n";
my $element = $root->look_down("id", "StartWeekLabel");
defined $element or die "Failed to locate id=StartWeekLabel\n";
my $rawdate = $element->as_trimmed_text();
print "Raw date '$rawdate'\n&
rather than directory permissions. That is the files being copied are read
only, which is why the second copy fails.
The answer probably depends on how you are copying files. For example,
according to the doco, File::Copy::cp preserves the original permissions while
File::Copy::copy sets default permis
dow events to specific windows, as the
windowing system does. It doesn't entirely surprise me that locking the screen,
and therefore the windowing system, prevents that from working. It's kind of
what locking the screen is designed to do.
Another method of communicating with, or control
;s a 'newb' at stuff that haven't tried before. It might help to think
of inserting elements into an array as replacing a section of length 0, when
you read 'perldoc -f splice'.
It might also be worth taking a look at slices, described in 'perldoc perldata'.
HT
= $STDIN->Input();
> if (defined $input[0] and $input[0] == 1)
> {
>
> }
>
>
> }
Not sure what you mean. That code doesn't see very complex.
In case you haven't spotted them, there are a few FAQs that may help. See
'perldoc -q key' to start w
ly. Is there a difference between a list and an array?
> > (believe it or not, I'm not a newb).
> Here's a link that discusses the topic:
> https://www.socialtext.net/perl5/array_vs_list
Also a FAQ. See 'perldoc -q "list.*array"'.
HTH
--
Brian Ra
es {
my $db = shift;
my $sql = qq{UPDATE PROD_INT set COUNTRY = ? where ROW_ID = ?};
my $sth = $db->prepare($sql);
foreach (keys %country_releases) {
$sth->execute($country_releases{$_}, $_ . ":ZZZ");
}
}
HTH
--
Brian Raven
Please consider the environment
ethods on getting exactly what I want written to
> the Event Logs?
> Cheers and thanks in advance.
> Ashley
This link may help.
http://www.perlmonks.org/?node_id=737505
HTH
--
Brian Raven
Please consider the environment before printing this e-mail.
This e-mail may contain confidentia
> -Original Message-
> From: p sena [mailto:senapati2...@yahoo.com]
> Sent: 05 March 2011 05:34
> To: perl-win32-users@listserv.ActiveState.com; Brian Raven
> Subject: RE: regex like option *values*
>>>>> __DATA__
>>>>> abc0[1-9].ctr.[pad,spd]
s using the cygwin
shell, as long as you put the appropriate line at the start of your script,
e.g. "#!c:/perl/bin/perl".
Another work around is to turn your script into a batch file. See the provided
script pl2bat for help with that.
HTH
--
Brian Raven
Please consider the enviro
> -Original Message-
> From: p sena [mailto:senapati2...@yahoo.com]
> Sent: 03 March 2011 15:40
> To: perl-win32-users@listserv.ActiveState.com; Brian Raven
> Subject: RE: regex like option *values*
>> __DATA__
>> abc0[1-9].ctr.[pad,spd].set.in
>> abc[01
,spd].set.in
abcL[1,2,3].ctr.[pad,spd].set.in
abcL[1,2,3].ctr.[70,001].set.in
---
It should work for lists of ranges, and ranges of strings as well as numbers.
Regarding incorporating into Getopt::Long, see the Tips and Tricks section of
the doco.
HTH
ir =~ s/$dir//i;
>print "scpfile = $scpfile\nCurrent Dir after stripping path\t-
> $currentdir\n";
>exit;
>}
> }
> And output :
> The folder name is c:\temp
> Current Dir before stripping path - c:\temp/SMTPSVCLOG
> scpfile = smtpsvc
is a tied hash, I believe.
Regarding your work around. Map in a void context is usually frowned
upon. Perhaps grep or possibly ...
for ('now') { require ActiveState::Path }
... should have the same effect, i.e. aliasing $_ to something
(hopefully) innocuous.
HTH
--
Brian Rav
of Config
('use diagnostics' will give a stack trace) but I can't see how it
causes that error, i.e. "%Config::Config is read-only".
Note that inhibiting the activestate override
($ENV{ACTIVEPERL_CONFIG_DISABLE} = 1) also seems to make the problem go
away.
Maybe somebody
either
provide a suitable diagnostic if support for 64 bit integer values is
not available, or perform the necessary conversion. You might want to
take that up with the module's maintainer.
I don't know if it is possible/practical to build a 32 bit version of
Perl with support for 64 bit int
t basis to
> help us.
Unless it is fairly easy to create a 64 bit setup, it might be worth
expending some effort in checking whether your belief that you don't
have a memory leak is sustainable. This may help.
http://modperlbook.org/html/14-2-6-Memory-Leakage.html
HTH
--
Brian Raven
Pl
-Original Message-
From: activeperl-boun...@listserv.activestate.com
[mailto:activeperl-boun...@listserv.activestate.com] On Behalf Of Brian
Raven
Sent: 17 December 2010 17:25
To: Sisyphus; activep...@activestate.com;
perl-win32-us...@activestate.com
Subject: RE: Where's Tk?
> ..
-Original Message-
From: Sisyphus [mailto:sisyph...@optusnet.com.au]
Sent: 16 December 2010 22:26
To: Brian Raven; activep...@activestate.com;
perl-win32-us...@activestate.com
Subject: Re: Where's Tk?
> - Original Message -
> From: "Brian Raven"
&g
I have Activestate Perl 5.12.2 (build 1202) installed. I can see some Tk
extension packages in the PPM gui, but no sign of Tk itself.
Is there a problem, or is just me looking in the wrong place?
--
Brian Raven
Please consider the environment before printing this e-mail.
This e-mail may
ams" on files etc.
What Jan said, especially about copying, plus...
Sysinternals (http://technet.microsoft.com/en-us/sysinternals/default) has some
utilities that will give you info on NTFS meta data files and ADS. There is
even a Perl module on CPAN (and hopefully on PPM) to help with AD
ack("(H2)*", @hex_array);
Have another read through 'perldoc -f pack'. I usually have to whenever I use
it.
Also, I notice that all of your characters seem to be followed by a null byte.
Are these perhaps 16 bit characters, or will you strip the null bytes out at
some point?
-
::Wrapper, that may
be of interest.
HTH
--
Brian Raven
Please consider the environment before printing this e-mail.
This e-mail may contain confidential and/or privileged information. If you are
not the intended recipient or have received this e-mail in error, please advise
the sender imm
local, $remote, $state) = split;
my ($ip, $port) = split /:/, $local;
if ($port == $port_to_check) {
return $state;
}
}
return "NOT IN USE";
}
HTH
--
Brian Raven
Please consider the environment before printing this e-mail.
This e-mail may contain c
ng literals are subject to backslash and variable substitution;
single-quoted strings are not (except for \' and \\).
Unless you are using the string as a command line argument, then /
should work, and not need escaping.
HTH
--
Brian Raven
Please consider the environment before printin
= $True
> $objDoc = $objWord.Documents.Open($strWordFile)
>
> $objSelection = $objWord.Selection
>
> $d = get-content "d:/temp/acronyms.txt"# read file of acronym
> |
> definition
> foreach ( $l in $d ) {
> ($acro, $def) = $l.split('|')
f a specific MUA. If that's not possible or feasible,
then you may want to rethink your requirement.
HTH
--
Brian Raven
Please consider the environment before printing this e-mail.
This e-mail may contain confidential and/or privileged information. If you are
not the intended recipient
s scrolledtext + adjustable columns.
I am not entirely clear what you are asking for, but have you looked at
Tk::Hlist? It doesn't have adjustable columns, but I notice that there
is a Tk::Hlistplus on CPAN which looks like it does. It seems to be in
the PPM archive under the package nam
multiple languages, including Perl using
Tkx.
http://www.tkdocs.com/tutorial/index.html
If you do go for it, and come up with any useful advice for converting
PerlTk to Tkx, then please share.
HTH
--
Brian Raven
Please consider the environment before printing this e-mail.
This e-mail may conta
uld be a module that specialises in zip
files like Archive::Zip, possibly in combination with
Archive::Zip::MemberRead.
HTH
--
Brian Raven
Please consider the environment before printing this email.
This e-mail may contain confidential and/or privileged information. If you are
not the intended recipi
recipients already have Perl
installed), have a look at the source filtering modules like
Filter::Crypto.
HTH
--
Brian Raven
Please consider the environment before printing this email.
This e-mail may contain confidential and/or privileged information. If you are
not the intended recipient or have r
esr/faqs/smart-questions.html>.
--
Brian Raven
Please consider the environment before printing this email.
This e-mail may contain confidential and/or privileged information. If you are
not the intended recipient or have received this e-mail in error, please advise
the sender immediately by
t;http://search.cpan.org/search?query=datetime%3A%3Aformat&mode=all>, and
on the fourth page I saw DateTime::Format::Mail, which sounds pretty
much like what you are asking for.
BTW, it seems to be available vie ppm as well.
HTH
--
Brian Raven
Please consider the environment before pri
ser will
generally do a more reliable job of parsing XML that regular
expressions, even Perl regular expressions.
HTH
--
Brian Raven
Please consider the environment before printing this email.
This e-mail may contain confidential and/or privileged information. If you are
not the intended
t}; # prints
"button _parent value is
> HTML::Element=HASH(0x1afa5c4)"
> print "button _tag value is " . ${$button}{_tag}; # prints "button
_tag value is button"
>
> $parent = $button->parent;
> print "parent tag is " . ${$parent}{_t
e 'perldoc -q update'), but given the apparent age of that
answer I would add advice to localise file handles and use the 3 arg
form of open.
If you mean to insert some data into the file then the general answer is
to simply read from your original file and create a new output file.
HTH
-
Root->GetChildNodeGroups(\$nodes, TRUE);
>
> print "Child Group Count: " . $objChildGroups . "\n";
>
> print @arrNodes . "\n";
If I am right, and I may well not be, this would probably need to be
something like:
for my $obj (in $nodes) {
print &q
g and
bribes repositories.
Which version of Avtivestate perl are you using? Which repositories have
you tried?
HTH
--
Brian Raven
This e-mail may contain confidential and/or privileged information. If you are
not the intended recipient or have received this e-mail in error, please advise
the sender
Serguei Trouchelle <> wrote:
> Brian Raven wrote:
>
>> Read the documentation on OO that comes with Perl (perldoc perl$_
>> foreach qw{boot toot tooc bot}). Also Damian Conway's book comes
>> highly recommended. I can't remember toe title off-hand, but y
e value
> variables, but can't find examples of how to pass arrays or hash
> values.
>
> Any suggestions?
Read the documentation on OO that comes with Perl (perldoc perl$_
foreach qw{boot toot tooc bot}). Also Damian Conway's book comes highly
recommended. I can't re
1 works , and has not been
regressed..
I have just tried your code on Linux, and it seems to work as expected, i.e.
pings seen on the server immediately after they are sent. So you may want to
consider switching OS.
HTH
--
Brian Raven
This e-mail may contain confidential and/or privileged i
r scripts, and
fixed the issues raised before running them. I strongly suggest that you do the
same.
--
Brian Raven
This e-mail may contain confidential and/or privileged information. If you are
not the intended recipient or have received this e-mail in error, please advise
the sender immediate
quot;), this was
increased to 2000 for build 1001, so you might want to upgrade your Perl.
HTH
--
Brian Raven
This e-mail may contain confidential and/or privileged information. If you are
not the intended recipient or have received this e-mail in error, please advise
the sender immedia
FT_LIST_NUMBER_ONLY => 0x8000;
my $function = new Win32::API("ftd2xx", "FT_ListDevices", "PPN", "N");
die "Can't import API FT_ListDevices: $!\n" unless defined $function;
my $DevBuffer = " " x 80;
my $status=$function->Call($DevBuffer, 0 ,F
he menu tab. The height of the window remains unchanged
> for all
> subsequent menu actions. I have printed out the variable containing
> the
> nominated height of the window before and after making the selection
> and it
> does not change. I can compensate for this action by
: {}, $_)}
@options);
print p();
print submit("Use that");
print end_form;
print hr();
}
sub output_data {
print h2("You selected something");
print "It was ", strong($sel);
}
--
HTH
--
Brian Rav
From: Daniel Burgaud [mailto:burg...@gmail.com]
Sent: 03 September 2009 03:00
To: Brian Raven
Cc: Perl-Win32-Users
Subject: Re: need help with Tk: I could not figure the error
> Hi
>
> When I moved all the variables within the subroutines outside, this
script suddenly worked f
> use strict;
perl will give you a clue if you add "use warnings;" here. It will even
give some advice if you make it "use diagnostics;".
> use Tk;
> ...
HTH
--
Brian Raven
This e-mail may contain confidential and/or privileged
withdraw and Popup, although I can see no
documentation for Popup in TopLevel or its obvious base classes.
Unless somebody comes up with a better answer, try copying DialogBox.pm,
make mods to it and see what happens. If you discover the answer from
that, don't forget to let us know what it is.
From: Perl Perl [mailto:perl.solut...@gmail.com]
Sent: 01 July 2009 14:37
To: Brian Raven
Cc: perl-win32-users@listserv.activestate.com
Subject: Re: CPAN install directory usage
> Hi Brian Raven,
>
> I don't know by which way my system admin has install the
module
.pl line 5.
>
>
> This is at Windows OS. Could you please help me to overcome this?
It is not really clear from the above, but it looks like Tk has not been
installed, or at least not properly.
The big question is why don't you install it using ppm, rather than from
CPAN. It is
server. Perhaps $ftpout?
> $lsize = stat("c:/temp/apj_697_1_106ej.zip")->size;
> print "SIZE:- $lsize";
> $ftpout->quit() or die "FTP: Couldn't quit.";
> $ftpin->quit() or die "FTP: Couldn't quit.";
>
>
> MESSA
rom google.
> print $content;
Just a guess, but are the links in the returned document relative? If
so, hava a look at the example code in the doco for HTML::LinkExtor.
HTH
--
Brian Raven
This e-mail may contain confidential and/or privileged information. If you are
not the intended recipie
s.
> #system("/View/Vobs>tools/Perl/bin/perl tools/Compile
tools/Perl/bin/perl tools/pjtCompile.pm /View/Vobs/
> $Filename");
> }
Also, it looks like you are (a) using global variables, or (b) not
including 'use strict;' at the start of your code. Try to avoid (a), and
From: Perl Perl [mailto:perl.solut...@gmail.com]
Sent: 05 June 2009 13:16
To: Brian Raven
Cc: perl-win32-users@listserv.activestate.com
Subject: Re: inserting the file paths in between the two arrays ( text
widget ) : Perl/TK
> Thanks a lot HTH ( Brian),
>
> This worked for m
to append the $path
to the array. In which case see 'perldoc -f push'.
> #open (FILE,">>f1.txt") or die "Can't open $!";
> #foreach (@File_Path) {
> # print FILE $_;
> # $t -> insert ("end", $_);
>
> #}
> }
HT
d schedule, and I've been searching CPAN. But before heading
> too far down that path, I thought I'd ask the list for advice.
There are command line tools in cygwin and putty. There are also perl
modules, e.g. Net::SSH2.
HTH
--
Brian Raven
This e-mail may contain confidentia
tack. You are aware that Tk
is not thread safe?
Of course that may not be your problem, but it is a pretty good
candidate. In fact Tk can be used in a threaded Perl program, but it
must be done with great care.
HTH
--
Brian Raven
This e-mail may contain confidential and/or privileged informati
my $id = $thr->tid();
print "Result for thread $id is $result\n";
}
select undef, undef, undef, 0.1;
}
print "All threads finished\n";
}
sub threadsub {
my $id = threads->tid();
print "Thread $id starting\n";
m
es-0812/lib/x86_64-linux-thread-multi/Tk/Derived.pm line
306
> main::set_bg at Radio.pl line 26
> Tk::BackTrace at
/apps/perl/modules-0812/lib/x86_64-linux-thread-multi/Tk.pm line 124
> Tk::Derived::configure at
/apps/perl/modules-0812/lib/x86_64-linux-thread-multi/Tk/Derived.p
if anyone has any insights or experience with this, I would be very
interested to learn from your experience
Without more detail it is hard to say (some example code would be useful
here). However, you should be able to use the return value from your
recursive sub, rather than a global.
HTH
--
Bria
less vague. As LWP is mainly concerned with
retrieving data, it is unlikely to be involved, as your question seems
to be more related to doing something with the data after retrieving it.
HTH
--
Brian Raven
This e-mail may contain confidential and/or privileged information. If you are
not t
e
> SetAccountInformation and SetTargetComputer functions added.
>
> Windows XP SP2
> Perl 5.8.8 822 [280952]
> Win32-TaskScheduler 2.0.2
>
> Any help would be greatly appreciated.
This is just a guess, but the example script
(http://cpansearch.perl.org/src/UNICOLET/Win32-Task
Min Jeon,
>
> Please use back stick operator here, instead of system command,
because system command doesn't return
> anything.
Not so. From 'perldoc -f system':
"The return value is the exit status of the program as returned by the
"wait" call."
ontained example script, that we could simply cut&paste and
run would be better, along with the output generated when you ran the
same code.
Also, what happens when you execute those commands manually?
HTH
--
Brian Raven
This e-mail may contain confidential and/or privileged information. If
gt; root --> energy
> \-> inorganic
>
> then adding a subroot to energy
> add solar
> root --> energy --> solar
> \-> inorganic
>
> and then increasing expansion as needed.
Have a look at 'perldoc perldsc' for starters.
HTH
--
Brian Rave
the socket is closed. For
anything more fine grained than that, or it is your responsibility to
close the socket, then you will need to know how to recognise when to
start and stop reading from the socket, which depends on the protocol
that is being used. It can also depend on what else you are
the localised file handle. Or
course, if you can install File::Slurp, you don't even need to write
one.
Also, its better to call subs without the '&' prefix, unless you know
what that does, and you need it.
HTH
--
Brian Raven
This e-mail may contain confidential
em and can not get even
close.
I suggest taking a look at 'perldoc perlipc', as well as 'perldoc
IPC::Open2' and 'perldoc IPC::Open3'. Installing IPC::Cmd and/or
IPC::Run may help simplify things a bit.
HTH
--
Brian Raven
This e-mail may contain confidential and/o
REEN|BACKGROUND_INTENSITY);
# This sets the text color on DOS in red with intensity
$console->Attr(FOREGROUND_RED|FOREGROUND_INTENSITY|$BackgroundColor);
print "\nError Msg: $error \n";
$console->Attr($CurrentConsoleColor);
}
1;
HTH
--
Brian Raven
This e-mail may
> $buflen) {
die "GetSystemDirectory buffer needs to be at least $result
bytes\n";
}
print "System directory is ", substr($buf, 0, $result), "\n";
HTH
--
Brian Raven
This e-mail may contain confidential and/or privileged information. If you are
not
1 - 100 of 133 matches
Mail list logo
