Win32::SetupSup and ActiveState Perl 8
Does anyone know of a ppm for SetupSup that works with the latest version of Perl? Thanks, Kevin. This e-mail is confidential and may contain legally privileged information. You should not disclose its contents to any other person. If you are not the intended recipient, please notify the sender immediately. Whilst the Council has taken every reasonable precaution to minimise the risk of computer software viruses, it cannot accept liability for any damage which you may sustain as a result of such viruses. You should carry out your own virus checks before opening the e-mail (and/or any attachments). Unless expressly stated otherwise, the contents of this e-mail represent only the views of the sender and do not impose any legal obligation upon the Council or commit the Council to any course of action. This e-mail has been scanned for all viruses by Star Internet. The service is powered by MessageLabs. For more information on a proactive anti-virus service working around the clock, around the globe, visit: http://www.star.net.uk ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Command Line WinZip Executed From Win32 Perl Script
Hi, Has anyone redirected WinZip output to a separate file? I can’t seem to get it to work. Currently, it defaults to Standard Output but writes to the beginning for the first zip and then it appends, and it always writes “Searching…..” to Standard Error. One site recommended adding >> with the file but Winzip thinks it is another file to zip. Nick
RE: $SIG{'INT'}
I just upgraded to V5.8.1 build 807, and All Is Well (TM). R. ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Problem with Win32::Console and END block.
Does anyone know a way around this one. I want to set my dos window up with
80 cols and 100 lines, but when I do I break my END block.
use strict;
use warnings;
$| =1;
# use Win32::Console;
# my $BUFFER = new Win32::Console(STD_OUTPUT_HANDLE);
# $BUFFER->Size(80,100);
for (1..5) {print "."; sleep 1}
exit;
END {print "\n\nPress Enter\n"; ;}
In the above form it works. BUT remove the comments from the first 2
(commented) lines, and the PRINT statement in the END block stops working.
The still works, though.
I _can't_ have the syntax wrong this time, Shirley?
W2K, V5.8.1 build 807.
Thanks.
R.
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Command Line WinZip Executed From Win32 Perl Script
Bharucha, Nikhil wrote: > Hi, > > > > Has anyone redirected WinZip output to a separate file? I can’t seem to > get it to work. Currently, it defaults to Standard Output but writes to > the beginning for the first zip and then it appends, and it always > writes “Searching…..” to Standard Error. One site recommended adding >> > with the file but Winzip thinks it is another file to zip. A sample code snippet would help. Snipping some code from one of my scripts (this seems to work for me) : my $winzip = 'D:/Util/WinZip/wzzip.exe'; my @zip_options = qw(-a -r -p -whs); # add, recurse, sub paths, +hidden/system my $zipfile = 'somename.zip'; # send a newline to Winzip if not registered version open OUT, "| $winzip @zip_options $zipfile '*.*' >E:/tmp/wzzip.log" or die "wzzip pipe: $!"; print OUT "\n"; close OUT; I'm running it under tcsh which is probably why I quoted '*.*'. -- ,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED] (_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED] / ) /--< o // // Castle of Medieval Myth & Magic http://www.todbe.com/ -/-' /___/_<_http://dbecoll.tripod.com/ (My Perl/Lakers stuff) ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Win32::SetupSup and ActiveState Perl 8
On Tue, 16 Dec 2003, Kevin Gibbs wrote: > Does anyone know of a ppm for SetupSup that works with the > latest version of Perl? There's a Win32-Setupsup ppm package for ActivePerl 8xx at http://theoryx5.uwinnipeg.ca/ppms/. -- best regards, randy kobes ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Command Line WinZip Executed From Win32 Perl Script
Nick, Download the WinZip Command Line Support Add-On here: http://www.winzip.com/other.htm See if that works better for you. HT - Original Message - From: "Bharucha, Nikhil" <[EMAIL PROTECTED]> Date: Tuesday, December 16, 2003 11:28 am Subject: Command Line WinZip Executed From Win32 Perl Script > Hi, > > > > Has anyone redirected WinZip output to a separate file? I can't > seem to > get it to work. Currently, it defaults to Standard Output but > writes to > the beginning for the first zip and then it appends, and it always > writes "Searching." to Standard Error. One site recommended > adding>> with the file but Winzip thinks it is another file to zip. > > > > > > Nick > > begin:vcard n:Tanner;Howard fn:Howard Tanner version:2.1 email;internet:[EMAIL PROTECTED] end:vcard
RE: Command Line WinZip Executed From Win32 Perl Script
HT, I have it installed and functionally it works great. I am just trying to make my logs look nicer which I attach to an email my process generates. Nick -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Sent: Tuesday, December 16, 2003 1:07 PM To: Bharucha, Nikhil Cc: [EMAIL PROTECTED] Subject: Re: Command Line WinZip Executed From Win32 Perl Script Nick, Download the WinZip Command Line Support Add-On here: http://www.winzip.com/other.htm See if that works better for you. HT - Original Message - From: "Bharucha, Nikhil" <[EMAIL PROTECTED]> Date: Tuesday, December 16, 2003 11:28 am Subject: Command Line WinZip Executed From Win32 Perl Script > Hi, > > > > Has anyone redirected WinZip output to a separate file? I can't > seem to > get it to work. Currently, it defaults to Standard Output but > writes to > the beginning for the first zip and then it appends, and it always > writes "Searching." to Standard Error. One site recommended > adding>> with the file but Winzip thinks it is another file to zip. > > > > > > Nick > > ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Command Line WinZip Executed From Win32 Perl Script
My fix today is to close STDOUT and STDERR logs and reopen in append mode just before I execute WinZip via Win32:Process Create method. Doing this forces ALL Winzip messaging to append the log. The only exception is the "Searching..." that gets written to STDERR -- I can deal with this. -Original Message- From: Bharucha, Nikhil Sent: Tuesday, December 16, 2003 1:13 PM To: [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] Subject: RE: Command Line WinZip Executed From Win32 Perl Script HT, I have it installed and functionally it works great. I am just trying to make my logs look nicer which I attach to an email my process generates. Nick -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Sent: Tuesday, December 16, 2003 1:07 PM To: Bharucha, Nikhil Cc: [EMAIL PROTECTED] Subject: Re: Command Line WinZip Executed From Win32 Perl Script Nick, Download the WinZip Command Line Support Add-On here: http://www.winzip.com/other.htm See if that works better for you. HT - Original Message - From: "Bharucha, Nikhil" <[EMAIL PROTECTED]> Date: Tuesday, December 16, 2003 11:28 am Subject: Command Line WinZip Executed From Win32 Perl Script > Hi, > > > > Has anyone redirected WinZip output to a separate file? I can't > seem to > get it to work. Currently, it defaults to Standard Output but > writes to > the beginning for the first zip and then it appends, and it always > writes "Searching." to Standard Error. One site recommended > adding>> with the file but Winzip thinks it is another file to zip. > > > > > > Nick > > ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
file permissions via UNC path
I have a Perl script, running under IIS, using PerlEx. It is able to read and write files located on external storage using a UNC path. However, if that same Perl script invokes a second Perl script (using the backticks syntax, e.g. `perl otherscript.pl`), then that second Perl script cannot read the same file - I get a "no such file" type of error message in the $! variable. Why would this happen? John Deighan Public Consulting Group 1700 Kraft Dr. Suite 2250 Blacksburg, VA 24060 [EMAIL PROTECTED] 540-953-2330 x12 FAX: 540-953-2335 ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
seek parameters
Here's a strangeness: my $res = sysseek( @stk[ -2, -3, -1 ] ); fails to compile, but my $res = sysseek( $stk[ -2 ], $stk[ -3 ], $stk[ -1 ] ); compiles fine. As far as I can tell, they have the same effect. And curiously, the error from the first is about the number of parameters. Can anyone explain that? sysread and syswrite aren't so picky -- Glenn -- http://nevcal.com/ === Like almost everyone, I receive a lot of spam every day, much of it offering to help me get out of debt or get rich quick. It's ridiculous. -- Bill Gates And here is why it is ridiculous: The division that includes Windows posted an operating profit of $2.26 billion on revenue of $2.81 billion. --from Reuters via http://biz.yahoo.com/rc/031113/tech_microsoft_msn_1.html So that's profit of over 400% of investment... with a bit more investment in Windows technology, particularly in the area of reliability, the profit percentage might go down, but so might the bugs and security problems? Seems like it would be a reasonable tradeoff. WalMart earnings are 3.4% of investment. ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: file permissions via UNC path
John Deighan wrote: I have a Perl script, running under IIS, using PerlEx. It is able to read and write files located on external storage using a UNC path. However, if that same Perl script invokes a second Perl script (using the backticks syntax, e.g. `perl otherscript.pl`), then that second Perl script cannot read the same file - I get a "no such file" type of error message in the $! variable. Why would this happen? Looks to me that the UNC path is being interpreted as a local file path. Something to do with the number of backslashes you're providing perhaps. I've actually come across the reverse problem where, under backticks, '\\perl\\bin\\perl' is being interpreted as a network path. In my case, the fix was to specify 'D:\\perl\\bin\\perl' - which still mystifies me, given that the script running the backticks command is in the 'D' drive. Cheers, Rob -- Any emails containing attachments will be deleted from my ISP's mail server before I even get to see them. If you wish to email me an attachment, please provide advance warning so that I can make the necessary arrangements. ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Trying to install Perl on XP Professional -- getting dialog error 2755, 110
Sorry to be so slow in responding. What happened was that I was working with XP for the first time and made a security change and I did it at the wrong place. So basically ended up with no real access to the machine. Ended up having to have the machine rebuilt. I just a few minutes ago retried and everything worked as it should when it came to installing Perl on the machine. Just as I would have expected. So thanks to each who responded, but as usual the real enemy was me! Wags ;) [EMAIL PROTECTED] wrote: > Subject: Trying to install Perl on XP Professional -- getting dialog > error 2755, 110 > > > I have never had problem w/ installing Perl until I tried to install > on XP Professional. I have tried both 5.6.1.635 and 5.81.807 and both > fail with the same error. > > I took a look on www.microsoft.com and it talks about .NET install > and a problem w/ a temp folder being encrypted, but I have checked > the temp folder where I am installing from and it is not encrypted. > > The error dialog given is: > > Internal Error 2755, 110 > c:\TEMP\ActivePerl-5.6.1.635-MSWin32-x86.msi > > System was just created last week. It is XP Professional Version > 2002 Service Pack 1 w/ 504 meg of memory. > > Any ideas or where I should be looking? > > Thanks! > > Wags ;) > ** This message contains information that is confidential and proprietary to FedEx Freight or its affiliates. It is intended only for the recipient named and for the express purpose(s) described therein. Any other use is prohibited. ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Trying to install Perl on XP Professional -- getting dialog error 2755, 110
this is the tricky thing with XP for many users. XP uses NTFS by default, which means that ACL permissions are applied to all filesystems. The Activeperl msi installer is actually installed using the MSI service, run as the SYSTEM account and NOT as your user account, so many users run into problems with this particularly in cases where: 1. they are installing to a new drive formatted with NTFS where the SYSTEM account has no privs 2. they are installing from a drive or loaction the SYSTEM account doesn't have access to (eg a mapped drive) 3. the c:\%systemroot%\Installer folder's permissions have been messed with, or it has been removed. jeffG Wagner, David --- Senior Programmer Analyst --- WGO wrote: Sorry to be so slow in responding. What happened was that I was working with XP for the first time and made a security change and I did it at the wrong place. So basically ended up with no real access to the machine. Ended up having to have the machine rebuilt. I just a few minutes ago retried and everything worked as it should when it came to installing Perl on the machine. Just as I would have expected. So thanks to each who responded, but as usual the real enemy was me! Wags ;) [EMAIL PROTECTED] wrote: Subject: Trying to install Perl on XP Professional -- getting dialog error 2755, 110 I have never had problem w/ installing Perl until I tried to install on XP Professional. I have tried both 5.6.1.635 and 5.81.807 and both fail with the same error. I took a look on www.microsoft.com and it talks about .NET install and a problem w/ a temp folder being encrypted, but I have checked the temp folder where I am installing from and it is not encrypted. The error dialog given is: Internal Error 2755, 110 c:\TEMP\ActivePerl-5.6.1.635-MSWin32-x86.msi System was just created last week. It is XP Professional Version 2002 Service Pack 1 w/ 504 meg of memory. Any ideas or where I should be looking? Thanks! Wags ;) ** This message contains information that is confidential and proprietary to FedEx Freight or its affiliates. It is intended only for the recipient named and for the express purpose(s) described therein. Any other use is prohibited. ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: seek parameters
Glenn Linderman wrote:
Here's a strangeness:
my $res = sysseek( @stk[ -2, -3, -1 ] );
fails to compile, but
my $res = sysseek( $stk[ -2 ], $stk[ -3 ], $stk[ -1 ] );
compiles fine. As far as I can tell, they have the same effect.
And curiously, the error from the first is about the number of parameters.
That would mean that '@stk[-2,-3,-1]' is being seen as other than 3
arguments. But that's impossible, isn't it ?
('parameters' mean 'arguments' doesn't it ?)
I certainly can't explain it.
Cheers,
Rob
--
Any emails containing attachments will be deleted from my ISP's mail
server before I even get to see them. If you wish to email me an
attachment, please provide advance warning so that I can make the
necessary arrangements.
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
unlink
Hey Listers- This is not homework. I am teaching myself perl. Question: Does the unlink command not work on windows? The book I am using has some code examples using it but I am wondering if it might be UNIX specific. I hope my code isn't that bad. Thanks! Eric ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Term::ReadKey weirdness
Hi,
I'm writing a program that needs single character input from the console
window. So Term::ReadKey seems to be a natural solution.
So I wrote some perl code as follows. Usually the program asks for a
key, and gets it. Sometimes it wants to check for the existance of a
keypress without delay, so fin_key and fin_iskey were to deal with
those. And then fin_kbexpect was to deal with the case where it wants a
whole line, ending with carriage return. One could switch out of raw
mode, and and use for a whole line, but funny things happen when
switching from raw to normal mode: if the user has typed characters
before the mode is switched to normal, they don't echo so it is
confusing. This is confusing, but understandable behavior.
What is less understandable is that when using the commented out version
of fin_key, called from fin_kbexpect, the carriage return key seems to
be delayed. If one types a carriage return, nothing seems to happen (it
is not printed by the debug print statement) until another key is
pressed. Then the carriage return stands up to be counted, and so does
the next key. However, it is pretty confusing for the user to have to
"type ahead" to get the previous line ending to be recognized.
The uncommented version of fin_key, which uses fin_iskey and a sleep
loop, doesn't have such a problem.
Looking at the internals of Term::ReadKey (which I can't claim to fully
understand) it appears that there is a difference: calling the getch vs
calling the ReadConsoleInput. Perhaps mixing those isn't the best idea?
Anyway, the current handling of carriage returns by ReadKey( 0 ) is
extremely disconcerting in use. The
my $debug = 1;
#
{ my $kbd_mode;
use Term::ReadKey;
# sub fin_key
# { unless ( $kbd_mode )
#{ ReadMode('raw');
# $kbd_mode = 1;
#}
#my $key = ReadKey( 0 );
#return ord $key;
# }
#
sub fin_iskey
{ unless ( $kbd_mode )
{ ReadMode('raw');
$kbd_mode = 1;
}
my $key = ReadKey( -1 );
return 0 unless defined $key;
return ord $key;
}
#
sub fin_key
{ my $key;
$key = & fin_iskey();
until ( $key )
{ sleep ( .1 );
$key = & fin_iskey();
}
}
#
sub fin_done
{ if ( $kbd_mode )
{ ReadMode('normal');
print "kbd mode was set\n";
$kbd_mode = 0;
}
return;
}
#
END { & fin_done(); }
}
#
sub fin_kbexpect
{ my $gotcr;
my $buf = '';
until ( $gotcr )
{ my $key = & fin_key();
print "key=$key " if $debug;
if ( $key == 13 )
{ $buf .= chr 10;
do_type( chr( $key ) . chr( 10 ));
$gotcr = 1;
} elsif ( $key == 8 )
{ do_type( "\cH \cH" );
substr $buf, -1, 1, '';
} elsif ( $key > 127 || $key < 32 )
{ do_type( "\cG" );
} else
{ $buf .= chr $key;
do_type( chr $key );
}
}
$in{'buf'} = $buf;
$in{'ix'} = 0;
$in{'max'} = length $buf;
return;
}
--
Glenn -- http://nevcal.com/
===
Like almost everyone, I receive a lot of spam every day, much of it
offering to help me get out of debt or get rich quick. It's ridiculous.
-- Bill Gates
And here is why it is ridiculous:
The division that includes Windows posted an operating profit of $2.26
billion on revenue of $2.81 billion.
--from Reuters via
http://biz.yahoo.com/rc/031113/tech_microsoft_msn_1.html
So that's profit of over 400% of investment... with a bit more
investment in Windows technology, particularly in the area of
reliability, the profit percentage might go down, but so might the bugs
and security problems? Seems like it would be a reasonable tradeoff.
WalMart earnings are 3.4% of investment.
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: unlink
> > Hey Listers- > This is not homework. I am teaching myself perl. > Question: > Does the unlink command not work on windows? The book I am > using has some > code examples using it but I am wondering if it might be UNIX > specific. I > hope my code isn't that bad. > Thanks! > Eric > Unlink works even on windoze. What isn't working for you? - Lynn. ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: unlink
On 12/16/2003 10:14 PM, Eric Edwards wrote: Hey Listers- This is not homework. I am teaching myself perl. Question: Does the unlink command not work on windows? The book I am using has some code examples using it but I am wondering if it might be UNIX specific. I hope my code isn't that bad. Thanks! Eric unlink works fine on Windows. What code is failing? unlink 'filename' or die $!; Randy. ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: seek parameters
Well, I could see a possibility here, but this is total
speculation as I do not know the underlying implentation
of the sysseek function.
Think of the case of function prototypes:
sub f (\@) { print 'foo'; }
my @a = qw(b c d e f z);
f( @a[-2,-3,-1] );
I get this error:
Type of arg 1 to main::f must be array (not array slice)
The prototype specifies that this function expects an actual array
to be passed in (and it addresses it via a ref). The fact that it
knows the difference between an array slice and an array I think
means that that info concerning the type of args being passed to
a subroutine can be known to the subroutine.
So, maybe the code author for sysseek, since it is a pretty
low level (as in close to the OS) function, made an assumption
that the parameters being passed in were 3 individual scalars.
It could then misbehave if an array slice is passed in instead.
Maybe a direct interface to a C-function call.
Again - pure thought conjecture here on my part as I do not
know the Perl guts nor the specifics of sysseek.
> And curiously, the error from the first is about the
> number of parameters.
This statement adds strength to my conjecture as an array slice
could be a single parameter (rather than three).
--
Mike Arms
> -Original Message-
> From: Sisyphus [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, December 16, 2003 4:27 PM
> Cc: Win32 perl
> Subject: Re: seek parameters
>
>
> Glenn Linderman wrote:
> > Here's a strangeness:
> >
> > my $res = sysseek( @stk[ -2, -3, -1 ] );
> >
> > fails to compile, but
> >
> > my $res = sysseek( $stk[ -2 ], $stk[ -3 ], $stk[ -1 ] );
> >
> > compiles fine. As far as I can tell, they have the same effect.
> >
> > And curiously, the error from the first is about the
> number of parameters.
> >
>
> That would mean that '@stk[-2,-3,-1]' is being seen as other than 3
> arguments. But that's impossible, isn't it ?
>
> ('parameters' mean 'arguments' doesn't it ?)
>
> I certainly can't explain it.
>
> Cheers,
> Rob
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: unlink
On 12/16/2003 11:04 PM, Eric Edwards wrote:
- Original Message -
From: "Randy W. Sims" <[EMAIL PROTECTED]>
To: "Eric Edwards" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Tuesday, December 16, 2003 9:35 PM
Subject: Re: unlink
On 12/16/2003 10:14 PM, Eric Edwards wrote:
Hey Listers-
This is not homework. I am teaching myself perl.
Question:
Does the unlink command not work on windows? The book I am using has
some
code examples using it but I am wondering if it might be UNIX specific.
I
hope my code isn't that bad.
Thanks!
Eric
unlink works fine on Windows. What code is failing?
unlink 'filename' or die $!;
Randy.
> I tried both of these:
> foreach (@ARGV) {
>unlink $_ or warn "Can't unlink '$_': $! \n";
> }
> also:
> foreach my $file qw(slate bedrock lava)) {
>unlink $file of warn "failed on $file: $!\n";
> }
> i entered these file names in my directory.
> Thanks,
> Eric
What is the output?
-><8-
#!/usr/bin/perl
use strict;
use warnings;
use Cwd;
print 'In directory ' . cwd() . "\n";
foreach (@ARGV) {
print "unlinking $_\n";
unlink or warn;
}
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: unlink
[To respond select the Reply-All option in your mail client to respond
to the mailing-list, and please post your response at the end of the
message your responding to. Thanks.]
On 12/16/2003 11:33 PM, Eric Edwards wrote:
- Original Message -
From: "Randy W. Sims" <[EMAIL PROTECTED]>
To: "Eric Edwards" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Tuesday, December 16, 2003 10:12 PM
Subject: Re: unlink
On 12/16/2003 11:04 PM, Eric Edwards wrote:
- Original Message -
From: "Randy W. Sims" <[EMAIL PROTECTED]>
To: "Eric Edwards" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Tuesday, December 16, 2003 9:35 PM
Subject: Re: unlink
On 12/16/2003 10:14 PM, Eric Edwards wrote:
Hey Listers-
This is not homework. I am teaching myself perl.
Question:
Does the unlink command not work on windows? The book I am using has
some
code examples using it but I am wondering if it might be UNIX specific.
I
hope my code isn't that bad.
Thanks!
Eric
unlink works fine on Windows. What code is failing?
unlink 'filename' or die $!;
Randy.
> I tried both of these:
> foreach (@ARGV) {
>unlink $_ or warn "Can't unlink '$_': $! \n";
> }
> also:
> foreach my $file qw(slate bedrock lava)) {
>unlink $file of warn "failed on $file: $!\n";
> }
> i entered these file names in my directory.
> Thanks,
> Eric
What is the output?
-><8-
#!/usr/bin/perl
use strict;
use warnings;
use Cwd;
print 'In directory ' . cwd() . "\n";
foreach (@ARGV) {
print "unlinking $_\n";
unlink or warn;
}
> The output is failed on 'filename' or can't unlink 'filename'.
> Eric
Does the script I posted (above) print out the directory name and file
names that you expect?
Randy.
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: seek parameters
Arms, Mike wrote:
Well, I could see a possibility here, but this is total
speculation as I do not know the underlying implentation
of the sysseek function.
Think of the case of function prototypes:
sub f (\@) { print 'foo'; }
my @a = qw(b c d e f z);
f( @a[-2,-3,-1] );
I get this error:
Type of arg 1 to main::f must be array (not array slice)
That's probably close to what's happening. Consider this:
sub f ($$$) { print 'foo'; }
my @a = qw(b c d e f z);
f( @a[-2,-3,-1] );
Then replace the last line with: f($a[-2], $a[-3], $a[-1]);
Cheers,
Rob
--
Any emails containing attachments will be deleted from my ISP's mail
server before I even get to see them. If you wish to email me an
attachment, please provide advance warning so that I can make the
necessary arrangements.
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: unlink
It gives me the correct directory and filename but it does not delete the
file.
Eric
- Original Message -
From: "Randy W. Sims" <[EMAIL PROTECTED]>
To: "Eric Edwards" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Tuesday, December 16, 2003 10:47 PM
Subject: Re: unlink
> [To respond select the Reply-All option in your mail client to respond
> to the mailing-list, and please post your response at the end of the
> message your responding to. Thanks.]
>
> On 12/16/2003 11:33 PM, Eric Edwards wrote:
>
> > - Original Message -
> > From: "Randy W. Sims" <[EMAIL PROTECTED]>
> > To: "Eric Edwards" <[EMAIL PROTECTED]>
> > Cc: <[EMAIL PROTECTED]>
> > Sent: Tuesday, December 16, 2003 10:12 PM
> > Subject: Re: unlink
> >
> >
> >
> >>On 12/16/2003 11:04 PM, Eric Edwards wrote:
> >>
> >>
> >>>- Original Message -
> >>>From: "Randy W. Sims" <[EMAIL PROTECTED]>
> >>>To: "Eric Edwards" <[EMAIL PROTECTED]>
> >>>Cc: <[EMAIL PROTECTED]>
> >>>Sent: Tuesday, December 16, 2003 9:35 PM
> >>>Subject: Re: unlink
> >>>
> >>>
> >>>
> >>>
> On 12/16/2003 10:14 PM, Eric Edwards wrote:
>
>
>
> >Hey Listers-
> >This is not homework. I am teaching myself perl.
> >Question:
> >Does the unlink command not work on windows? The book I am using has
> >>>
> >>>some
> >>>
> >>>
> >code examples using it but I am wondering if it might be UNIX
specific.
> >>>
> >>>I
> >>>
> >>>
> >hope my code isn't that bad.
> >Thanks!
> >Eric
> >
>
> unlink works fine on Windows. What code is failing?
>
> unlink 'filename' or die $!;
>
> Randy.
>
> >>>
> >> > I tried both of these:
> >> > foreach (@ARGV) {
> >> >unlink $_ or warn "Can't unlink '$_': $! \n";
> >> > }
> >> > also:
> >> > foreach my $file qw(slate bedrock lava)) {
> >> >unlink $file of warn "failed on $file: $!\n";
> >> > }
> >> > i entered these file names in my directory.
> >> > Thanks,
> >> > Eric
> >>
> >>What is the output?
> >>
> >>-><8-
> >>#!/usr/bin/perl
> >>use strict;
> >>use warnings;
> >>
> >>use Cwd;
> >>
> >>print 'In directory ' . cwd() . "\n";
> >>foreach (@ARGV) {
> >> print "unlinking $_\n";
> >> unlink or warn;
> >>}
> >>
> > The output is failed on 'filename' or can't unlink 'filename'.
> > Eric
>
> Does the script I posted (above) print out the directory name and file
> names that you expect?
>
> Randy.
>
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: unlink
Eric Edwards wrote: It gives me the correct directory and filename but it does not delete the file. Eric The filename you give it needs to be in the directory that is printed out. If you want it to delete a file in some other directory you need to provide the path to that file as well: perl the_script.pl C:/my_stuff/for_deletion/delete_me.txt Now ... if the actual path to the actual file you want to unlink happens to have one or more spaces in it (eg 'My Documents') then that still won't work. (Best to reply to posts by adding to the bottom, rather than the top. Also delete any irrelevant stuff from earlier posts before posting :-) Cheers, Rob -- Any emails containing attachments will be deleted from my ISP's mail server before I even get to see them. If you wish to email me an attachment, please provide advance warning so that I can make the necessary arrangements. ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
