RE: split and ^ character
Hi Try this one Make use of \Q\E format. $subrecdelim = '^'; $mystr = 'cat^dog^pony^rat'; @array = split(/\Q$subrecdelim\E/, $mystr); foreach (@array) { print - $_\n; } Cheers. Regards, Prasad -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of vega, james Sent: Monday, November 01, 2004 10:33 PM To: Perl-Win32-Users Subject: RE: split and ^ character I'm trying to figure how to get the following code to work. I've tried a few combos, but nothing seems to get it right. I'm guessing it's something simple, but I couldn't nail down what it was. I realize that ^ is a special operator but I don't see a way to escape it, given that it's input from a scalar variable. $subrecdelim = '^'; $mystr = 'cat^dog^pony^rat'; @array = split(/$subrecdelim/, $mystr); @array = split(/\Q$subrecdelim\E/, $mystr); \Q - Quotes nonword characters until \E foreach (@array) { print - $_\n; } Any hints would be appreciated. Thanks! Paul --- ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Perl clustering
Does anyone know if active state or any other distributions support windows clustering? - Chris ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: fork didn't work
Jutu Subramanian, Srinivasan (Cognizant) wrote: Hi, I need to execute a perl application from one perl application. I should do with fork and exec. The execution of another one perl application is the independent to the parent process.So, I don't want to use wind32::CreateProcess. Using fork() in Perl on Windows means using threads. If you are creating another process anyway, use system() or Proc::Background. You should create new background processes with fork() on Unix platforms. You should create new background processes with Win32::CreateProcess() on Windows platforms. Proc::Background does that for you. If I use the fork and exec, Need to do the process of Reaping dead children. Proc::Background is able to reap finished child process. Proc::Background is able to return the status of the finished child process. Proc::Background is able to wait for child process to finish. Proc::Background is able to kill the child process. Proc::Background is able to check that the child process is still alive. This method is also wait for the forked process to complete its work. So, the next parent process continues only after the child process exits. It overcomes the fork limitation of compiled in limit of 64 active threads. The output for the sample code is given below. PARENT PROCESS=1 filter.pl called with parameter 1 PARENT PROCESS=2 filter.pl called with parameter 2 PARENT PROCESS=3 filter.pl called with parameter 3 Actually, Firt perl program(parent) is not to wait for the another perl program(child) completes. Parent process keeps on running 24 hours. So, Child process getting accumulated in the process table. If we harvesting the dead children by the method of Reaping dead children, We would be getting the result as mentioned above. It is similar to the usage of wait at the parent process. Is it comfortable to use the reaping dead children. Kindly advice me on this and revert back for any clarifications. Proc::Background allows you to create and manage multiple background processes concurrently. If you do not need to manage multiple background processes concurrently, use system(). If you only need to manage multiple background processes concurrently on Windows and want to learn more about the Win32 API use Win32::CreateProcess. If you need your code to run on both Unix and Win32 systems, use Proc::Background. If you do not want to learn about the Win32 API, or want a simpler API than Win32::CreateProcess, use Proc::Background. regards Srinivas hope that helps, rgr ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Perl based Faxing
Anyone know of a faxing product built on Perl? ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Formatting seconds help
Does anyone have a simple routine or a way that I can format my seconds. Say I have: $seconds = '3600'; I want the output to say 1 hour $seconds = '5567'; I want the output to say 1 hour 54 minutes and 64 seconds Something like that that will break down the amount of days, hours, minutes, and seconds. Thank you Allan ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: foreach ( hash element that maybe scalar, maybe array)
Thanks for that Charles - foreach my $bit ( values %bits ) { if ( ref $bit eq 'ARRAY' ) { yep, that helps a lot. I didn't know ref existed, very useful. I am still a bit surprised there isn't a way that perl can just infer what to do from context like it usually does. Still, this opens up ways to fix a couple of other outstanding issues I have as well. Thanks loads! ed c ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
AW: Formatting seconds help
for $seconds(3598 .. 3661) { $_=gmtime $seconds;/(\d\d):(\d\d):(\d\d)/; 0+$1 printf %d hour ,$1; 0+$2 printf %d minutes,$2; 0+$3 (($1 || $2) print ( and ),printf %d seconds,$3);print \n } give me: -- Perl -- 59 minutes and 58 seconds 59 minutes and 59 seconds 1 hour 1 hour and 1 seconds 1 hour and 2 seconds 1 hour and 3 seconds 1 hour and 4 seconds 1 hour and 5 seconds 1 hour and 6 seconds 1 hour and 7 seconds 1 hour and 8 seconds 1 hour and 9 seconds 1 hour and 10 seconds 1 hour and 11 seconds 1 hour and 12 seconds 1 hour and 13 seconds 1 hour and 14 seconds 1 hour and 15 seconds 1 hour and 16 seconds 1 hour and 17 seconds 1 hour and 18 seconds 1 hour and 19 seconds 1 hour and 20 seconds 1 hour and 21 seconds 1 hour and 22 seconds 1 hour and 23 seconds 1 hour and 24 seconds 1 hour and 25 seconds 1 hour and 26 seconds 1 hour and 27 seconds 1 hour and 28 seconds 1 hour and 29 seconds 1 hour and 30 seconds 1 hour and 31 seconds 1 hour and 32 seconds 1 hour and 33 seconds 1 hour and 34 seconds 1 hour and 35 seconds 1 hour and 36 seconds 1 hour and 37 seconds 1 hour and 38 seconds 1 hour and 39 seconds 1 hour and 40 seconds 1 hour and 41 seconds 1 hour and 42 seconds 1 hour and 43 seconds 1 hour and 44 seconds 1 hour and 45 seconds 1 hour and 46 seconds 1 hour and 47 seconds 1 hour and 48 seconds 1 hour and 49 seconds 1 hour and 50 seconds 1 hour and 51 seconds 1 hour and 52 seconds 1 hour and 53 seconds 1 hour and 54 seconds 1 hour and 55 seconds 1 hour and 56 seconds 1 hour and 57 seconds 1 hour and 58 seconds 1 hour and 59 seconds 1 hour 1 minutes 1 hour 1 minutes and 1 seconds Mit freundlichen Grüssen Joachim Görner Informationsverarbeitung Systemtechnik Basisdienste (ISB) ADAC e.V., Am Westpark 8, 81373 München Tel.: (089) 76 76 27 83 Fax: (089) 76 76 28 82 mailto:[EMAIL PROTECTED] www.adac.de -Ursprüngliche Nachricht- Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Gesendet: Dienstag, 2. November 2004 19:02 An: [EMAIL PROTECTED] Betreff: Formatting seconds help Does anyone have a simple routine or a way that I can format my seconds. Say I have: $seconds = '3600'; I want the output to say 1 hour $seconds = '5567'; I want the output to say 1 hour 54 minutes and 64 seconds Something like that that will break down the amount of days, hours, minutes, and seconds. Thank you Allan ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Perl based Faxing
I've controlled Hylafax (www.hylafax.org) for years via Perl, long before the CPAN module (http://search.cpan.org/~arak/Fax-Hylafax-Client-1.01/) became available. It's a great product, but it's not for Windows. Interfax (www.interfax.net) offers faxing as a Web Service. They have sample Perl code at http://www.interfax.net/en/dev/webservice/samples/fax_perl_sendcharfax.html -- Mark Thomas Internet Systems Architect ___ BAE SYSTEMS Information Technology 2 Massachusetts Ave NE, Ste. 5110 Washington, DC 20212 USA ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
regex help
Newbie here having trouble with regex. I'm trying to parse an html file saved as text to find all instances of time. The parsed file is called myFindTime2.txt and contains text like = tr td align=right valign=top font size=2 color=#00 class=listings 11:30 ambr / /font /td /tr == The script is called myFindTime2.pl and contains the lines == foreach () { s/([\t][\d2][:][\d2][\s])/\1/; print $_; } == - Ignored: The command I use is. perl myFindTime2.pl myFindTime2.txt Any suggestions? Is what I'm trying to do here with s/search/replace_backreference/ valid? - Done. -- Forwarded message -- From: Malcolm Mill [EMAIL PROTECTED] To: [EMAIL PROTECTED] Date: Tue, 2 Nov 2004 21:00:27 + Subject: Regex help Hi, Newbie here having trouble with regex. I'm trying to parse an html file saved as text to find all instances of time. The parsed file is called myFindTime2.txt and contains text like = tr td align=right valign=top font size=2 color=#00 class=listings 11:30 ambr / /font /td /tr == The script is called myFindTime2.pl and contains the lines == foreach () { s/([\t][\d2][:][\d2][\s])/\1/; print $_; } == The command I use is. perl myFindTime2.pl myFindTime2.txt Any suggestions? Is what I'm trying to do here with s/search/replace_backreference/ valid? ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Formatting seconds help
[EMAIL PROTECTED] wrote: Does anyone have a simple routine or a way that I can format my seconds. Say I have: $seconds = '3600'; I want the output to say 1 hour $seconds = '5567'; I want the output to say 1 hour 54 minutes and 64 seconds Something like that that will break down the amount of days, hours, minutes, and seconds. Thank you Allan I don't know if this is simple, clean or even correct, but, help yourself. I've been using it for something... maybe this will prompt someone to post a better solution I can use as well. '-) -mike higgins sub time_to_seconds{ my ($fraction, $seconds, $minutes, $hours) = reverse (split /[:.]/, $_[0]); $seconds += $minutes * 60; $seconds += $hours * 3600; $seconds += $fraction / 10; $seconds; } sub seconds_to_time{ my $hours = int $_[0]/ 3600; my $minutes = int (( $_[0] - $hours * 3600) / 60); my $seconds = int $_[0] - ($hours * 3600 + $minutes * 60); my $fraction = ''; $fraction = substr $_[0], rindex $_[0], '.' if ((index $_[0], '.') != -1); my $t = sprintf %02d:%02d:%02d%s, $hours,$minutes,$seconds,$fraction; $t; } ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: regex help
Title: RE: regex help Assuming your dates are always in the same format, this would work: print $1\n while ($_ =~ /(\d{1,2}\:\d{2} [ap]m)/gi); -Pete -Original Message- From: Malcolm Mill [mailto:[EMAIL PROTECTED]] Sent: Tuesday, November 02, 2004 4:11 PM To: [EMAIL PROTECTED] Subject: regex help Newbie here having trouble with regex. I'm trying to parse an html file saved as text to find all instances of time. The parsed file is called myFindTime2.txt and contains text like = tr td align=right valign=top font size=2 color=#00 class=listings 11:30 ambr / /font /td /tr == The script is called myFindTime2.pl and contains the lines == foreach () { s/([\t][\d2][:][\d2][\s])/\1/; print $_; } == - Ignored: The command I use is. perl myFindTime2.pl myFindTime2.txt Any suggestions? Is what I'm trying to do here with s/search/replace_backreference/ valid? - Done. -- Forwarded message -- From: Malcolm Mill [EMAIL PROTECTED] To: [EMAIL PROTECTED] Date: Tue, 2 Nov 2004 21:00:27 + Subject: Regex help Hi, Newbie here having trouble with regex. I'm trying to parse an html file saved as text to find all instances of time. The parsed file is called myFindTime2.txt and contains text like = tr td align=right valign=top font size=2 color=#00 class=listings 11:30 ambr / /font /td /tr == The script is called myFindTime2.pl and contains the lines == foreach () { s/([\t][\d2][:][\d2][\s])/\1/; print $_; } == The command I use is. perl myFindTime2.pl myFindTime2.txt Any suggestions? Is what I'm trying to do here with s/search/replace_backreference/ valid? ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs __ Message transport security by GatewayDefender 4:13:49 PM ET - 11/2/2004 ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Formatting seconds help
if($seconds/60 =1){ $mintes=int($seconds/60); $seconds=$seconds-$minutes*60; } else { $minutes = 0; } Do the same thing for 3600 seconds and you'll have the same for hours. Do the same for 86400 and you'll have the same for days... Etc. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of [EMAIL PROTECTED] Sent: Wednesday, November 03, 2004 2:02 AM To: [EMAIL PROTECTED] Subject: Formatting seconds help Does anyone have a simple routine or a way that I can format my seconds. Say I have: $seconds = '3600'; I want the output to say 1 hour $seconds = '5567'; I want the output to say 1 hour 54 minutes and 64 seconds Something like that that will break down the amount of days, hours, minutes, and seconds. Thank you Allan ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: regex help
Hi, Your Find patter is wrong. Use the following Pattern: s/([\t]\d{2}[:]\d{2}[\s])/\1/; Regards, Gopal.R -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Malcolm Mill Sent: Wednesday, November 03, 2004 2:41 AM To: [EMAIL PROTECTED] Subject: regex help Newbie here having trouble with regex. I'm trying to parse an html file saved as text to find all instances of time. The parsed file is called myFindTime2.txt and contains text like = tr td align=right valign=top font size=2 color=#00 class=listings 11:30 ambr / /font /td /tr == The script is called myFindTime2.pl and contains the lines == foreach () { s/([\t][\d2][:][\d2][\s])/\1/; print $_; } == - Ignored: The command I use is. perl myFindTime2.pl myFindTime2.txt Any suggestions? Is what I'm trying to do here with s/search/replace_backreference/ valid? - Done. -- Forwarded message -- From: Malcolm Mill [EMAIL PROTECTED] To: [EMAIL PROTECTED] Date: Tue, 2 Nov 2004 21:00:27 + Subject: Regex help Hi, Newbie here having trouble with regex. I'm trying to parse an html file saved as text to find all instances of time. The parsed file is called myFindTime2.txt and contains text like = tr td align=right valign=top font size=2 color=#00 class=listings 11:30 ambr / /font /td /tr == The script is called myFindTime2.pl and contains the lines == foreach () { s/([\t][\d2][:][\d2][\s])/\1/; print $_; } == The command I use is. perl myFindTime2.pl myFindTime2.txt Any suggestions? Is what I'm trying to do here with s/search/replace_backreference/ valid? ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: regex help
Ganesh Babu Nallamothu, Integra-India wrote: Hi, Your Find patter is wrong. Use the following Pattern: s/([\t]\d{2}[:]\d{2}[\s])/\1/; \t, \s and : do not need to be in a character class and \1 is deprecated for $1. This should be equivalent: s/(\t\d{2}:\d{2}\s)/$1/; You should also be careful about the leading and trailing WS - this would require leading and trailing WS of any kind and remove it. s/(\s+\d{2}:\d{2}\s+)/$1/; You could also replace it with a single leading and trailing space: s/(\s+\d{2}:\d{2}\s+)/ $1 /; From: Malcolm Mill [EMAIL PROTECTED] To: [EMAIL PROTECTED] Date: Tue, 2 Nov 2004 21:00:27 + Subject: Regex help Hi, Newbie here having trouble with regex. I'm trying to parse an html file saved as text to find all instances of time. The parsed file is called myFindTime2.txt and contains text like = tr td align=right valign=top font size=2 color=#00 class=listings 11:30 ambr / /font /td /tr == The script is called myFindTime2.pl and contains the lines == foreach () { s/([\t][\d2][:][\d2][\s])/\1/; print $_; } == The command I use is. perl myFindTime2.pl myFindTime2.txt Any suggestions? Is what I'm trying to do here with s/search/replace_backreference/ valid? -- ,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED] (_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED] / ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/ -/-' /___/__/_/_http://dbecoll.tripod.com/ (My Perl/Lakers stuff) ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
How to obtain filesize?
I have a perl program about update file from pc to mysql,but I want to limit filesize,how to obtain filesize and file type?Do You Yahoo!? 150MP3 1G1000___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: fork didn't work
Hi, Thanks for your information. Can I have sample code and where to get the ppd to install the Proc::background perl modules If you know, Kindly tell me. regards Srinivas -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Roger Keane Sent: Tuesday, November 02, 2004 9:08 PM To: [EMAIL PROTECTED] Subject: Re: fork didn't work Jutu Subramanian, Srinivasan (Cognizant) wrote: Hi, I need to execute a perl application from one perl application. I should do with fork and exec. The execution of another one perl application is the independent to the parent process.So, I don't want to use wind32::CreateProcess. Using fork() in Perl on Windows means using threads. If you are creating another process anyway, use system() or Proc::Background. You should create new background processes with fork() on Unix platforms. You should create new background processes with Win32::CreateProcess() on Windows platforms. Proc::Background does that for you. If I use the fork and exec, Need to do the process of Reaping dead children. Proc::Background is able to reap finished child process. Proc::Background is able to return the status of the finished child process. Proc::Background is able to wait for child process to finish. Proc::Background is able to kill the child process. Proc::Background is able to check that the child process is still alive. This method is also wait for the forked process to complete its work. So, the next parent process continues only after the child process exits. It overcomes the fork limitation of compiled in limit of 64 active threads. The output for the sample code is given below. PARENT PROCESS=1 filter.pl called with parameter 1 PARENT PROCESS=2 filter.pl called with parameter 2 PARENT PROCESS=3 filter.pl called with parameter 3 Actually, Firt perl program(parent) is not to wait for the another perl program(child) completes. Parent process keeps on running 24 hours. So, Child process getting accumulated in the process table. If we harvesting the dead children by the method of Reaping dead children, We would be getting the result as mentioned above. It is similar to the usage of wait at the parent process. Is it comfortable to use the reaping dead children. Kindly advice me on this and revert back for any clarifications. Proc::Background allows you to create and manage multiple background processes concurrently. If you do not need to manage multiple background processes concurrently, use system(). If you only need to manage multiple background processes concurrently on Windows and want to learn more about the Win32 API use Win32::CreateProcess. If you need your code to run on both Unix and Win32 systems, use Proc::Background. If you do not want to learn about the Win32 API, or want a simpler API than Win32::CreateProcess, use Proc::Background. regards Srinivas hope that helps, rgr ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs This e-mail and any files transmitted with it are for the sole use of the intended recipient(s) and may contain confidential and privileged information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. Any unauthorized review, use, disclosure, dissemination, forwarding, printing or copying of this email or any action taken in reliance on this e-mail is strictly prohibited and may be unlawful. Visit us at http://www.cognizant.com ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Antwort: RE: fork didn't work
Hi, just a little search at search.cpan.org helps http://cpan.uwinnipeg.ca/module/Proc::Background::Win32 Best regards Manfred Beilfuss Jutu Subramanian, Srinivasan (Cognizant) An: Roger Keane [EMAIL PROTECTED], [EMAIL PROTECTED] [EMAIL PROTECTED] Gesendet von: Kopie: [EMAIL PROTECTED]Thema: RE: fork didn't work eState.com 03.11.2004 08:24 Hi, Thanks for your information. Can I have sample code and where to get the ppd to install the Proc::background perl modules If you know, Kindly tell me. regards Srinivas -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Roger Keane Sent: Tuesday, November 02, 2004 9:08 PM To: [EMAIL PROTECTED] Subject: Re: fork didn't work Jutu Subramanian, Srinivasan (Cognizant) wrote: Hi, I need to execute a perl application from one perl application. I should do with fork and exec. The execution of another one perl application is the independent to the parent process.So, I don't want to use wind32::CreateProcess. Using fork() in Perl on Windows means using threads. If you are creating another process anyway, use system() or Proc::Background. You should create new background processes with fork() on Unix platforms. You should create new background processes with Win32::CreateProcess() on Windows platforms. Proc::Background does that for you. If I use the fork and exec, Need to do the process of Reaping dead children. Proc::Background is able to reap finished child process. Proc::Background is able to return the status of the finished child process. Proc::Background is able to wait for child process to finish. Proc::Background is able to kill the child process. Proc::Background is able to check that the child process is still alive. This method is also wait for the forked process to complete its work. So, the next parent process continues only after the child process exits. It overcomes the fork limitation of compiled in limit of 64 active threads. The output for the sample code is given below. PARENT PROCESS=1 filter.pl called with parameter 1 PARENT PROCESS=2 filter.pl called with parameter 2 PARENT PROCESS=3 filter.pl called with parameter 3 Actually, Firt perl program(parent) is not to wait for the another perl program(child) completes. Parent process keeps on running 24 hours. So, Child process getting accumulated in the process table. If we harvesting the dead children by the method of Reaping dead children, We would be getting the result as mentioned above. It is similar to the usage of wait at the parent process. Is it comfortable to use the reaping dead children. Kindly advice me on this and revert back for any clarifications. Proc::Background allows you to create and manage multiple background processes concurrently. If you do not need to manage multiple background processes concurrently, use system(). If you only need to manage multiple background processes concurrently on Windows and want to learn more about the Win32 API use Win32::CreateProcess. If you need your code to run on both Unix and Win32 systems, use Proc::Background. If you do not want to learn about the Win32 API, or want a simpler API than Win32::CreateProcess, use Proc::Background. regards Srinivas hope that helps, rgr ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs This e-mail and any files transmitted with it are for the sole use of the intended