Windows-Command line Arguments

--===============1578088038==
Content-Type: multipart/alternative; boundary="0-594115816-1181745377=:8663"
Content-Transfer-Encoding: 7bit

--0-594115816-1181745377=:8663
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable

Dear Guru's,
=20
Here is my sample script...which i am running on windows.
=20
use strict;
use warnings;
=20
my $result =3D system ( "date");
=20
Now Date command returns me one more command prompt on which i have to =
enter current date(means need to enter another command) how do i enter on=
e more command.
=20
Please help me gurus.=20
=20
Is their any module which can help me ??=20
=20
I have checked perldoc -q system, perldoc -q command. These are little =
confusing . I will surely recheck these if the answer lies with in these.
=20
Correct me if i am not clear on mentioned my problem.
=20
Thanks,
Raj.

=20
---------------------------------
Be a PS3 game guru.
Get your game face on with the latest PS3 news and previews at Yahoo! Gam=
es.
--0-594115816-1181745377=:8663
Content-Type: text/html; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable

Re: Windows-Command line Arguments

raj esh wrote:
> Dear Guru's,
>
> Here is my sample script...which i am running on windows.
>
> use strict;
> use warnings;
>
> my $result = system ( "date");
>
> Now Date command returns me one more command prompt on which i have to
> enter current date(means need to enter another command) how do i enter
> one more command.
>
> Please help me gurus.
>
> Is their any module which can help me ??
>
> I have checked perldoc -q system, perldoc -q command. These are little
> confusing . I will surely recheck these if the answer lies with in these.
>
> Correct me if i am not clear on mentioned my problem.

Do you want to get the date or set the date ?

use time, localtime, gmtime or Win32::API (GetSystemTime) for getting the
date depending on what you need. To get with your system call above, add
the /T switch and use backticks to get returned date:
my $result = `cmd /C date /T`;
print "result=$result\n";

Setting the time using shell out:

my $new_time_str fmt = '00:01:02';
system "cmd /C time $new_time_str";

Setting date would be similar.

Or you can set using Win32::API SetSystemTime call.

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: Windows-Command line Arguments

--===============1639281932==
Content-Type: multipart/alternative; boundary="0-1763248565-1181825582=:44223"
Content-Transfer-Encoding: 7bit

--0-1763248565-1181825582=:44223
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable

Dear Guru's,
=20
I want to set the date of the system. The problem got solved by usiong =
the following method.
=20
#####
use strict;
use warnings;
my $result =3D system ("date < newdate.txt");
#####
In newdate.txt i entered my own date.
=20
I used Win32::API module in another perl code. It was very helpfull ind=
eed. The replies gave me more knowledge and the correct way of approach i=
n solving the problem. I am very thankful to every one.=20
=20
Thanks and Regards,
Raj.

=20
---------------------------------
We won't tell. Get more on shows you hate to love
(and love to hate): Yahoo! TV's Guilty Pleasures list.
--0-1763248565-1181825582=:44223
Content-Type: text/html; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable

Re: Windows-Command line Arguments

raj esh wrote:
> Dear Guru's,
>
> I want to set the date of the system. The problem got solved by usiong
> the following method.
>
> #####
> use strict;
> use warnings;
> my $result = system ("date < newdate.txt");

You don't need a file, you can just pass it on the commandline:

system "date 06-14-07";

> #####
> In newdate.txt i entered my own date.
>
> I used Win32::API module in another perl code. It was very helpfull
> indeed. The replies gave me more knowledge and the correct way of
> approach in solving the problem. I am very thankful to every one.
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs