/dev/trash has asked for the wisdom of the Perl Monks concerning the following question:
I have this snippit of code:
Some of it I picked up elsewhere some of it is my own. What I wanted it to do was to copy all the *.mbx and *.toc files to a network share for backup purposes and then to tell me it completed that task. The copying works fine, but I never see the "Mailboxes are done" and TOC's are done" messages. I'm using Activestate Perl v5.6.1 build 633 on a Windows 98 machine.#!/usr/bin/perl use warnings; use strict; use English; use diagnostics; use File::Copy; use File::DosGlob qw(glob); my $error=0; copy($_,'Z:/mail_test') foreach glob 'E:/EudoraPro/*.mbx'; printf ("Mailboxes done!\n"); copy($_,'Z:/mail_test') foreach glob 'E:/EudoraPro/*.toc'; printf ("TOC's done!\n");
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Screen Output of Messages
by BrowserUk (Patriarch) on Dec 13, 2003 at 06:34 UTC | |
by tachyon (Chancellor) on Dec 13, 2003 at 12:15 UTC | |
by /dev/trash (Curate) on Dec 13, 2003 at 16:10 UTC | |
Re: Screen Output of Messages
by tachyon (Chancellor) on Dec 13, 2003 at 04:33 UTC | |
by etcshadow (Priest) on Dec 13, 2003 at 05:00 UTC |
Back to
Seekers of Perl Wisdom