Re: [mv] OT! Hans -script for dissapearing data, some errors

[jojo@buchonline.net]

******    message to minivend-users from jojo@buchonline.net     ******

Hi Michael,

well, i have checked the script and there was some error. Here is the
script, which i have tested and it works.


#!/usr/bin/perl -w

#Analog File
 $in = "/home/jojo/test/analog.html";

#New file
 $out ="/home/jojo/test/test3.asc";

$i = 0;
open(IN, $in) || die "canīt open $in: $!";
open(OUT, ">$out") || die "canīt open $out: $!";
    while(defined($line = <IN>) )
      {
	$out = $i."\t".$line;
	$i++;
 	if (length($line) > 1){	print OUT $out;}
      }

close(OUT);
close(IN);


Regards,

	Joachim


On 30 Jan, Michael Schwartz wrote:
> ******    message to minivend-users from "Michael Schwartz" <michael@panamacom.com>     ******
> 
> Thanks...i did the modifications but there are some errors....dont worry,
> you helped a lot already.  Im going to try perl newgroups or something
> similar...
> I also tried doing
> cat file1>file2
> 
> but it doesnt unite the files horizontaly, just vertically....one above the
> other one...
> I also change analog's source, but the only way is to tell Analog's source
> to print a timer or something so the codes are different.....
> Thanks again Hans, and everyone for continous support.....
> 
> ----- Original Message -----
> From: Hans-Joachim Leidinger <jojo@buchonline.net>
> To: <minivend-users@minivend.com>
> Sent: Sunday, January 30, 2000 2:49 PM
> Subject: Re: [mv] Hans -script for dissapearing data, some errors
> 
> 
>> ******    message to minivend-users from Hans-Joachim Leidinger
> <jojo@buchonline.net>     ******
>>
>> Sorry! I wrote my email at home and from my head. Look down...
>>
>> Michael Schwartz wrote:
>> >
>> > ******    message to minivend-users from "Michael Schwartz"
> <michael@panamacom.com>     ******
>> >
>> > Hi Hans,
>> > This is the script as I typed it, following your email, it has one
>> > error.....maybe you can help me out, again  :-)
>> >
>> > #!/usr/bin/perl -w
>> >
>> > #Analog File
>> > $file1 = "/home/www/test.html";
>> >
>> > #New file
>> > $out ="/home/gandalf/test3.asc";
>> >
>> > $i = 0;
>> >  open(IN, $in) || die "canīt open $in: $!";
>> >  open(OUT, ">$out") || die "canīt open $out: $!";
>> >
>> >  while(defined($line = <IN>) {
>> >  $out = $i."\t".$line;
>> > $i++
>>
>> $i++;
>>
>> >  print OUT $out;
>> >  }
>> >  close(IN)
>> close(IN);
>>
>> >  close(OUT)
>>   close(OUT);
>>
>> [BIG DEL]
 
-- 
Hans-Joachim Leidinger
buch online                 jojo@buchonline.net
Munscheidstr. 14            FAX: +49 209 1971449
45886 Gelsenkirchen         FAX: 0209 1671449

-
To unsubscribe from the list, DO NOT REPLY to this message.  Instead, send
email with 'UNSUBSCRIBE minivend-users' in the body to Majordomo@minivend.com.
Archive of past messages: http://www.minivend.com/minivend/minivend-list