Find File from a File-Link
Hi,
does someone know if it is possible to
read a link-to-a-file ("Verknüpfung" in german)
and find out where the real file is located to open
it?
cheers
Armin
Armin Nolte
Database-Marketing
Deutsche Behindertenhilfe -
Aktion Mensch e.V.
Heinemannstr. 36
53175 Bonn
Tel.: 0228-2092-233
Fax: 0228-2092-222
www.aktion.mensch.de
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: CGI Error message
If you're using Apache u can set an error handler to display an html document when that particular code is encountered. Don't know about IIS or others, lah. At 12:24 PM 7/21/05 +0800, Goh Chin Tiong wrote: >Kindly advise on how we can disable the following >error from appearing on the browser when a >non-existent cgi script is being called. Thanks > >CGI Error >The specified CGI application misbehaved by not >returning a complete set of HTTP headers. The headers >it did return are: >Can't open perl script >"e:\Inetpub\scripts\customs\log\mini_logger.cgi": No >such file or directory -- REMEMBER THE WORLD TRADE CENTER ---=< WTC 911 >=-- "...ne cede males" 0100 ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: CGI Error message
Kindly advise on how we can disable the following error from appearing on the browser when a non-existent cgi script is being called. Thanks CGI Error The specified CGI application misbehaved by not returning a complete set of HTTP headers. The headers it did return are: Can't open perl script "e:\Inetpub\scripts\customs\log\mini_logger.cgi": No such file or directory __ Do you Yahoo!? New and Improved Yahoo! Mail - 1GB free storage! http://sg.info.mail.yahoo.com ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: send output to a parallel port?
> -Original Message- > From: Ken Cornetet > > Writing to an IO port from a user program isn't allowed under > NT/2k/XP. > > To do this you need some sort of driver. > > Check out http://www.winfordeng.com/products/portio32/#samples well somehow the single line of C code outp(0x378,state) writes to the parallel port on any of our Win98 and WinXP machines. the single line of C is compiled all by itself (with the header of course) perhaps there is some sort of driver installed allowing this low level access, but it is transparent to the above C code. anyhow, my thought is that Perl would have a similar ability. (BTW, I searched all network drives and my local drive for the example "portio32.dll", but found nothing.) ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: help with getting file stats
Have you tried stat ("$dir/$file")? If you just stat ($file), $file
would have to be the full path or a file in the current directory. Do
you have a sample output you could share?
-Dgg
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
lorid
Sent: Wednesday, July 20, 2005 3:34 PM
To: perl-win32-users
Subject: help with getting file stats
I am trying to get the file stats
I found this code in ch8 of perl cookbook
( $dev, $ino, $mode, $nlink,
$uid, $gid, $rdev, $size,
$atime, $mtime, $ctime,
$blksize, $blocks ) = stat($filename)
and read the man page for stat and perlfunc but cant seem to get a
simple program to get the file stats
after reading the man page for stat I thought my problem might be that I
need to use fstat since the file may be open
but that doesnt seem to work either
any suggestions would be appreciated.
my simple test program:
#!/usr/local/bin/perl
use File::stat;
my $dir_ctr = 0;
my $file_ctr = 0;
my $dir = "/home/lorid/wrccpics";
print "Opening $dir \n";
opendir DH, $dir or die "Can't open the current dir $!\n";
while($file = readdir(DH)){
if(-d "$dir/$file"){
print "\n Dir: $file \n";
$dir_ctr++;
}
elsif(-e "$dir/$file"){
print "\nFile: $file \n";
( $dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime,
$mtime, $ctime, $blksize, $blocks ) = stat($file);
print "\n $dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size,
$atime,Mtime: $mtime,\n Ctime:$ctime,\n $blksize, $blocks\n";
$file_ctr++;
}
}
print "\n";
print "number of directories: $dir_ctr";
print "\n";
print "number of files: $file_ctr";
print "\n";
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: help with getting file stats
[EMAIL PROTECTED] wrote:
> I am trying to get the file stats
> I found this code in ch8 of perl cookbook
> ( $dev, $ino, $mode, $nlink,
> $uid, $gid, $rdev, $size,
> $atime, $mtime, $ctime,
> $blksize, $blocks ) = stat($filename)
>
> and read the man page for stat and perlfunc but cant seem to get a
> simple program to get the file stats
> after reading the man page for stat I thought my problem might be
> that I need to use fstat since the file may be open
> but that doesnt seem to work either
>
> any suggestions would be appreciated.
> my simple test program:
>
>
> #!/usr/local/bin/perl
>
>
> use File::stat;
>
>
>
> my $dir_ctr = 0;
> my $file_ctr = 0;
>
>
> my $dir = "/home/lorid/wrccpics";
>
> print "Opening $dir \n";
>
> opendir DH, $dir or die "Can't open the current dir $!\n";
> while($file = readdir(DH)){
>
> if(-d "$dir/$file"){
> print "\n Dir: $file \n";
> $dir_ctr++;
> }
> elsif(-e "$dir/$file"){
> print "\nFile: $file \n";
> ( $dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime,
> $mtime, $ctime, $blksize, $blocks ) = stat($file);
If you look at the -d and -e you will see that it is concatenating the
dir and file. You are only giving it the file and it does not exist. You will
need to either use the same setup of $dir/$file or you could do a chdir against
the $dir and then the $file should work.
Wags ;)
> print "\n $dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size,
> $atime,Mtime: $mtime,\n Ctime:$ctime,\n $blksize, $blocks\n";
> $file_ctr++;
> }
>
> }
>
> print "\n";
> print "number of directories: $dir_ctr";
> print "\n";
> print "number of files: $file_ctr";
>
> print "\n";
> ___
> Perl-Win32-Users mailing list
> Perl-Win32-Users@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
***
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
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: send output to a parallel port?
- Original Message -
From: "robert" <[EMAIL PROTECTED]>
To:
Sent: Wednesday, July 20, 2005 1:27 PM
Subject: send output to a parallel port?
> Hey all
>
> we have some devices at work that are controlled by sending signals via
the
> computer's parallel port. (because all the serial ports are being used
> elsewhere)
>
> the parallel port (LPT) has the address 0x378. to do this in C, its quite
> simple:
>
> void parallel_device (int state)
> {
> outp (0x378,state);
> return;
>}
I think this question came up once already. Go to
http://www.logix4u.net/inpout32.htm and download inpout32.dll (link is clear
down at the bottom of the page). Here's the perl code I use to play around. I
never got around to doing anything useful with it. Hope this helps.
---code---
use strict;
use warnings;
use Win32::API; #load API module to interface DLL's
my $GetPortVal = Win32::API->new('inpout32', 'Inp32', ['I'], 'I') or die
"Couldn't create Win32::API object: $! $^E";
my $SetPortVal= Win32::API->new('inpout32', 'Out32', ['I','I'], 'I') or die
"Couldn't create Win32::API object: $! $^E";
my $input= $GetPortVal->Call(0x378) & 255; #get and display current value of
address 378 hex print "$input\n";
print "Original Port Value=$input\n\n";
my $return=$SetPortVal->Call(0x378,0x23); #set pins 2,3,7 (pins, not bits)
print "Call return value=$return\n\n";
$input= $GetPortVal->Call(0x378) & 255; #get and display updated value of
address 378 hex
print "New Port Value=$input\n";
---code---
Thad Schultz
EDA Librarian / Sys Admin
Woodward Industrial Controls
[EMAIL PROTECTED]
ph (970)498-3570
fax (970)498-3077
www.woodward.com
***
The information in this e-mail is confidential and intended solely for the
individual or entity to whom it is addressed. If you have received this e-mail
in error, please notify the sender by return e-mail, delete this e-mail, and
refrain from any disclosure or action based on the information.
***
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
help with getting file stats
I am trying to get the file stats
I found this code in ch8 of perl cookbook
( $dev, $ino, $mode, $nlink,
$uid, $gid, $rdev, $size,
$atime, $mtime, $ctime,
$blksize, $blocks ) = stat($filename)
and read the man page for stat and perlfunc but cant seem to get a
simple program to get the file stats
after reading the man page for stat I thought my problem might be that I
need to use fstat since the file may be open
but that doesnt seem to work either
any suggestions would be appreciated.
my simple test program:
#!/usr/local/bin/perl
use File::stat;
my $dir_ctr = 0;
my $file_ctr = 0;
my $dir = "/home/lorid/wrccpics";
print "Opening $dir \n";
opendir DH, $dir or die "Can't open the current dir $!\n";
while($file = readdir(DH)){
if(-d "$dir/$file"){
print "\n Dir: $file \n";
$dir_ctr++;
}
elsif(-e "$dir/$file"){
print "\nFile: $file \n";
( $dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime,
$mtime, $ctime, $blksize, $blocks ) = stat($file);
print "\n $dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size,
$atime,Mtime: $mtime,\n Ctime:$ctime,\n $blksize, $blocks\n";
$file_ctr++;
}
}
print "\n";
print "number of directories: $dir_ctr";
print "\n";
print "number of files: $file_ctr";
print "\n";
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: send output to a parallel port?
> -Original Message- > From: Sisyphus > Afaik a function declared as void would not return. it won't return a value, but it still has to go back to the caller. > Anyway, if it's that simple to do in C then it's also very > simple to achieve in perl, using Inline::C. thats interesting, and would be useful for large C programs but i've already compiled the C into a standalone executable, and can call the .EXE as a system call from perl. i mean yeah, it works, but what i want to do is avoid C altogether. for aesthetic purposes. its basically one line of C code: "outp(,)", and certainly not worth the module overhead can't perl do this? Rob > > > > But you'll need a compiler for that to work - preferably > MSVC++ 6.0 if you're running ActiveState perl, though the > free command line version of > MSVC++ 7.1 (.NET 2003 or whatever it is) that's available from > Microsoft will probably serve just as well. > > With ActiveState perl, a third alternative is to install > nmake or dmake, and the MinGW (gcc) compiler, along with > ExtUtils::FakeConfig. (All of those are freely available.) > > Cheers, > Rob > ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: send output to a parallel port?
Writing to an IO port from a user program isn't allowed under NT/2k/XP.
To do this you need some sort of driver.
Check out http://www.winfordeng.com/products/portio32/#samples
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Sisyphus
Sent: Wednesday, July 20, 2005 3:55 AM
To: robert; perl-win32-users@listserv.ActiveState.com
Subject: Re: send output to a parallel port?
- Original Message -
From: "robert" <[EMAIL PROTECTED]>
To:
Sent: Wednesday, July 20, 2005 1:27 PM
Subject: send output to a parallel port?
> Hey all
>
> we have some devices at work that are controlled by sending signals
via
the
> computer's parallel port. (because all the serial ports are being
used
> elsewhere)
>
> the parallel port (LPT) has the address 0x378. to do this in C, its
quite
> simple:
>
> void parallel_device (int state)
> {
> outp (0x378,state);
> return;
>}
Afaik a function declared as void would not return.
Anyway, if it's that simple to do in C then it's also very simple to
achieve
in perl, using Inline::C. Here is the script (untested):
--start test.pl
use warnings;
use strict;
use Inline C => Config =>
LIBS => '', # specify additional libs - eg '-lmylib'
BUILD_NOISY => 1; # verbose output during compilation
use Inline C => <<'EOC';
//#include // List any includes here
void inline_parallel_device(int state) {
outp(0x378, state);
}
EOC;
# perl code starts here:
my $state = 12345; # or whatever you want
# inline_parallel_device() does exactly the same as parallel_device().
inline_parallel_device($state);
# Then do whatever it is you want to do.
__END__
--- end test.pl ---
But you'll need a compiler for that to work - preferably MSVC++ 6.0 if
you're running ActiveState perl, though the free command line version of
MSVC++ 7.1 (.NET 2003 or whatever it is) that's available from
Microsoft will probably serve just as well.
With ActiveState perl, a third alternative is to install nmake or dmake,
and
the MinGW (gcc) compiler, along with ExtUtils::FakeConfig. (All of those
are
freely available.)
Cheers,
Rob
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: send output to a parallel port?
- Original Message -
From: "robert" <[EMAIL PROTECTED]>
To:
Sent: Wednesday, July 20, 2005 1:27 PM
Subject: send output to a parallel port?
> Hey all
>
> we have some devices at work that are controlled by sending signals via
the
> computer's parallel port. (because all the serial ports are being used
> elsewhere)
>
> the parallel port (LPT) has the address 0x378. to do this in C, its quite
> simple:
>
> void parallel_device (int state)
> {
> outp (0x378,state);
> return;
>}
Afaik a function declared as void would not return.
Anyway, if it's that simple to do in C then it's also very simple to achieve
in perl, using Inline::C. Here is the script (untested):
--start test.pl
use warnings;
use strict;
use Inline C => Config =>
LIBS => '', # specify additional libs - eg '-lmylib'
BUILD_NOISY => 1; # verbose output during compilation
use Inline C => <<'EOC';
//#include // List any includes here
void inline_parallel_device(int state) {
outp(0x378, state);
}
EOC;
# perl code starts here:
my $state = 12345; # or whatever you want
# inline_parallel_device() does exactly the same as parallel_device().
inline_parallel_device($state);
# Then do whatever it is you want to do.
__END__
--- end test.pl ---
But you'll need a compiler for that to work - preferably MSVC++ 6.0 if
you're running ActiveState perl, though the free command line version of
MSVC++ 7.1 (.NET 2003 or whatever it is) that's available from
Microsoft will probably serve just as well.
With ActiveState perl, a third alternative is to install nmake or dmake, and
the MinGW (gcc) compiler, along with ExtUtils::FakeConfig. (All of those are
freely available.)
Cheers,
Rob
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
