Thanks Swear the God make total sence to me now and easy
Thanks again
This mail was
sent by UebiMiau 2.5
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe:
Hi
I use one code for Windows and Unix:
use strict;
use File::Spec;
my $root_dir = /var/www/; # for windows c:\directory\
my $fle = new_folder; # created directory
my $chd = 650; # chmod on directory
{
$chd =
Go to http://aspn.activestate.com/ASPN/Downloads/ActivePerl/PPM/Zips
Select your version. Find the zip file and download. Unzip the file to
file the .ppd.
Where can I download the .ppd for Win32::AdminMisc.
Thanks in advance.
Steve
I had one using File::Find. The only thing it does not
do is create new directory in the base directory. I made up a folder name
called junker(change to what youneed)and created that.
Hopefully a starting point.
#!perl -w
use File::Find;$diff = 0;get_time();
my $MyStartTime = sprintf
what i would like to do it to go all the subdirectories of that home
directory that has many folders and in each folder to create Trash folder
untill it reaches the end of subdirectory
i know it has something to do with a loop statement but can't figure out
on my own or find source on internet
Instead of:
$Word-ActiveDocument-PageSetup-{TextColumns} =
$Word-SetCount({NumColumns=1)|| die can't create columns.
Win32::OLE-LastError();
Try this:
$Columns = $Word-ActiveDocument-PageSetup-{TextColumns};
$number = $Columns-{Count};
print --$number ---\n;
$Columns-Add()|| die can't create
Instead of:
$Word-ActiveDocument-PageSetup-{TextColumns} =
$Word-SetCount({NumColumns=1)|| die can't create columns.
Win32::OLE-LastError();
Try this:
$Columns = $Word-ActiveDocument-PageSetup-{TextColumns};
$number = $Columns-{Count};
print --$number ---\n;
$Columns-Add()|| die can't create
my($ca,$b);
while (($data) = $sth-fetchrow_array) {
if($data =~ /^A$/i) {
print a name=\A\/a unless $ca;
$ca = 1;
}
if($data =~ /^B$/i) {
print a name=\B\/a unless $cb;
$cb = 1;
}
}
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL
-Original Message-
Yeah
well
this is my home directory /home/xcomb
what
i would like to do it to go all the subdirectories of
that home directory that has many folders and in each folder to create Trash
folder untill it reaches the end of subdirectory
i
know it has
:)This mail was sent by
UebiMiau 2.5
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Greetings,
I have recently come accross an ftpd written in perl that i would
like to modify for allowing people to upload webcam images with out the
need for thier own web space with ftp access... Any way... The script
was obviously written on a Linux system and I am having a small problem
Title: RE: print \r
Seems like it is the Carriage Return character \r
if the printer however, doesn't do an automatic carriage return
then a line feed, you may need to change it to \r\n
for \r carriage return, \n line feed (new line)
George
-Original Message-
From: Conrad, Ben
I was asking this same question a couple months ago and never got a satisfactory
answer. I ended up using a little pre-compiled command-line spellchecker called
aspell that had an option for HTML files (I don't recall why I didn't look for
ispell-- maybe it had something to do with being on
Emo1313 wrote:
Greetings,
I have recently come accross an ftpd written in perl that i would
like to modify for allowing people to upload webcam images with out the
need for thier own web space with ftp access... Any way... The script
was obviously written on a Linux system and I am having a
Alexander Bel... wrote:
Hi
I use one code for Windows and Unix:
use strict;
use File::Spec;
my $root_dir = /var/www/; # for windows c:\directory\
my $fle = new_folder;# created directory
my $chd = 650; # chmod on directory
{
$chd = 0$chd;# correct format it's four figures
$chd =
Use find::file.
No need to loop or anything.
=
use File::Find;
use File::Path;
my @Directories = ();
my $Base = 'c:\tmp';
find (\FindDirs, $Base);
mkpath([@Directories], 1, 0777);
sub FindDirs()
{
$Directory = $File::Find::dir;
$Directory =
Title: DIV tags
Good Day all
Please refer to the java script below. I would like to know if there are a way to do the same in perl.
_javascript_
===
HTML
HEAD
SCRIPT language=_javascript_
function CheckStatus()
{
if (document.all('RejectRequest').style.display == block)
{
Title: Accessing KSpread on Linux (Open Office)
Good Day All
Does anyone know how to access KSpread from OpenOffice?
Thank you
Ronald
Title: RE: [Perl-unix-users] CGI redirection
To all those people that helped me with this problem thank you.
-Original Message-
From: Jo Geraerts [mailto:[EMAIL PROTECTED]]
Sent: 02 January 2003 02:35
To: [EMAIL PROTECTED]
Subject: Re: [Perl-unix-users] CGI redirection
On Tue,
Title: Printing CGI WEB Pages
Good Day All
does any body know how to print a page out of Perl
Thanks
Ronald
Everyone,
I have the following code:
$path = WinNT:// . Win32::DomainName();
if ( $AD = Win32::OLE-GetObject( $path ) ){;
my $Schema = Win32::OLE-GetObject( $AD-{Schema} );
if( $Schema-{Container} ) {
$AD-{Filter} = f=user;
Igor Litmanovich wrote:
I need a function to convert a name with arbitrary capitalization to actual
absolute filename
on Windows. The dir command returns the real name of file, however
directory name is
returned in the same case as supplied in command line:
C:\dir C:\temp\LOG\foo.txt
...
22 matches
Mail list logo