Click here to get back home

how to do operation on a mapped drive
 Home | NewsGroups | Search | About
Login Password
Register Now!
 comp.lang.perl.misc    Post an article   get this group's latest topics as an RSS feed add this group's latest topics to your My MSN content add this group's latest topics to your My Yahoo content
Subject Author Date
how to do operation on a mapped drive andy 10-08-2007
Posted by andy on October 8, 2007, 7:20 am
Please log in for more thread options
>>
>> [snip]
>>
>> > if I print "$1\n",
>> > the file prints just fine. But, if I do something like print "$1 after
>> > \n", the whole output is messed up. If I print "before $1\n", nothing
>> > prints at all. If I print "before $1 after\n", only after prints.
>>
>> not really sure, but could be a rogue "\r" in $1,


> There
> is a rogue carriage return (0xd) in the string

> Is there something I can do to deal with this
> situation?


Repair the corrupted file:

perl -p -i -e 'tr/\r//d' bad_file


--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas

Posted by Ron Bergin on October 8, 2007, 11:48 am
Please log in for more thread options
>>
>> [snip]
>>
>> > if I print "$1\n",
>> > the file prints just fine. But, if I do something like print "$1 after
>> > \n", the whole output is messed up. If I print "before $1\n", nothing
>> > prints at all. If I print "before $1 after\n", only after prints.
>>
>> not really sure, but could be a rogue "\r" in $1,


> There
> is a rogue carriage return (0xd) in the string

> Is there something I can do to deal with this
> situation?


Repair the corrupted file:

perl -p -i -e 'tr/\r//d' bad_file


--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas

Posted by andy on October 8, 2007, 10:10 pm
Please log in for more thread options
>
>
>
> > I have a remote server and I have mapped one drive from that remote
> > server into my local machine to access a perticular directory in that.
>
> > But I have to restart my local machine again and again. So again i
> > have to reconnect to the mapped drive by giving the userid and
> > password.
>
> > As I have to copy a file from that mapped drive and run that file on
> > the local machine after restarting the local machine.
>
> > The above process i have to do for each new file added into that
> > mapped drive.
> > So the steps are:
> > 1: detect the file added to the mapped drive.
> > 2: copy to the local machine.
> > 3: restart the local machine.
> > 4: Run that copied file.
> > 5: do the same process continuously so that each time a new file is
> > added to the mapped drive it will detect, copy the same file and
> > restart the machine.
>
> > How can this be done using perl.
>
> Why do you need to reboot your computer each time you copy a file?
>
> Please make an attempt at writing the script then post it and specific
> questions when you have a problem and we'll be happy to help.
>
> If you need/want someone to write it for you, then you may want to
> check out:http://www.rentacoder.com/RentACoder/default.asp

No its not like that. I am done with the accessing the mapped drive
at the first instant, and copied to local machine.
But how to restart the machine using script and if machine is
restarted manually just to check the script I am not able to access
the mapped drive as I will again have to give the userID and password.
That's the problem i am facing.

I mentioned the whole task to give the exact details of the restart
thing.
I thought like there will be some other way to do it easily. And i
don't want the whole script. I want the idea to approch in a easy
manner.


Posted by Joe Smith on October 9, 2007, 4:09 am
Please log in for more thread options
andy wrote:

> No its not like that. I am done with the accessing the mapped drive
> at the first instant, and copied to local machine.
> But how to restart the machine using script ...

Sounds like you've never used the Search option on CPAN.

http://search.cpan.org/~jdb/Win32-0.32/Win32.pm
Win32::InitiateSystemShutdown(MACHINE, MESSAGE, TIMEOUT, FORCECLOSE, REBOOT)

> and if machine is restarted manually just to check the script

If you are debugging a script that only runs at startup or only
runs at login, you should have said so.

> I am not able to access
> the mapped drive as I will again have to give the userID and password.

Try select "Reconnect at login" when you map the drive and use the same
password for local login and for file server access. Or look at Map() in
http://search.cpan.org/~jenda/Win32-FileOp-0.14.1/FileOp.pm

        -Joe

Similar ThreadsPosted
Is there any module to map a network drive and remove a mapped network drive in perl October 22, 2007, 8:11 am
4gb USB Flash drive for $14.49 March 25, 2008, 10:10 pm
install, usb flash drive March 13, 2005, 3:17 pm
drive externally a tcl interpreter September 26, 2006, 9:39 am
Read Zip on SMB drive with Perl February 20, 2007, 3:02 pm
install perl on usb flash drive March 14, 2005, 7:10 am
Array operation January 16, 2007, 7:08 am
FAQ 4.63: How do I reset an each() operation part-way through? December 10, 2004, 12:03 am
FAQ 4.63 How do I reset an each() operation part-way through? January 22, 2005, 6:03 am
FAQ 4.63 How do I reset an each() operation part-way through? April 4, 2005, 11:03 am

Our other projects:

Art Dolls, Fairies and Mermaids - Sunnyfaces.net

Roy's Linux, Programming and Search Engines messages

1-Script XML SitemapXML Sitemap