«

Sorry to be such a leech!

I need to split an archive of a discussion forum saved as one huge txt
file into individual txt files--one per message.

Posts are stamped with a date and time, messages can be of any length.
Posters are sometimes address by their time (as it was an anon forum)
but the full time/date stamp is always unique to the start of a
message.

New to perl but have installed activeperl and can run a .pl script from
the command line.

If anyone could provide a script for this job, I'd really appreciate
it.

05.11.01 10:01 AM

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

05.11.01 10:41 AM

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

05.12.01 10:50 PM

10:01, xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

you get the idea.

Thanks.

ps I won't just use it an dump it, I will learn from it!!!! cheers.

wrote:
>
> I need to split an archive of a discussion forum saved as one huge txt
> file into individual txt files--one per message.
>
> Posts are stamped with a date and time, messages can be of any length.
> Posters are sometimes address by their time (as it was an anon forum)
> but the full time/date stamp is always unique to the start of a
> message.
>
> New to perl but have installed activeperl and can run a .pl script from
> the command line.
>
> If anyone could provide a script for this job, I'd really appreciate
> it.

#!/usr/bin/perl
use warnings;
use strict;

while ( <> ) {

if ( /^\d{2}\.\d{2}\.\d{2} \d{2}:\d{2} [AP]M$/ ) {
chomp;
tr/ /_/;
open OUT, '>', $_ or die "Cannot open $_: $!";
next;
}

print OUT if fileno OUT;
}

__END__



John
--
use Perl;
program
fulfillment

John, thanks for this. It's only out putting empty files (0k, no
extension and no content when opened in notepad). I've tried it with
the sample I posted (saved as plain text) just to make sure and same
result. Maybe you can tweak. In the meantime I'll see if I can get
anywhere using the "if ( /^\d{2}\.\d{2}\.\d{2} \d{2}:\d{2} [AP]M$/ )"
in a similar script I've found that splitts after a keyword.

many thanks

wrote:
> John, thanks for this. It's only out putting empty files

That's odd - John's script should not have produced any type of file
for you - not because there's anything wrong with his script, but
because you're on a Windows machine, and you want to create files named
as per the timestamp, which include double-points (aka "colon", ie ":")
which is an illegal character on Windows filesystems. It should have
failed on the attempt to create the file for writing.

John's script works perfectly for me on UNIX, and perfectly on Windows
if I create a slightly modified version of the filename, such as:

(my $file = $_) =~ s/\:/_/g;
open OUT, '>',$file or die "Cannot open $_: $!";

--
http://DavidFilmer.com

wrote:
> wrote:
>>John, thanks for this. It's only out putting empty files
>
> That's odd - John's script should not have produced any type of file
> for you - not because there's anything wrong with his script, but
> because you're on a Windows machine, and you want to create files named
> as per the timestamp, which include double-points (aka "colon", ie ":")
> which is an illegal character on Windows filesystems. It should have
> failed on the attempt to create the file for writing.
>
> John's script works perfectly for me on UNIX, and perfectly on Windows
> if I create a slightly modified version of the filename, such as:
>
> (my $file = $_) =~ s/\:/_/g;
> open OUT, '>',$file or die "Cannot open $_: $!";

Thanks, I don't have Windows to test on. Actually if you just changed the line:

tr/ /_/;

to:

tr/ :/_/;

it would have done the same.


BTW:

> open OUT, '>',$file or die "Cannot open $_: $!";
^^^^^ ^^

If you are going to change the variable in the open() you should change it in
the die() as well.



John
--
use Perl;
program
fulfillment

wrote:

> I need to split an archive of a discussion forum saved as one huge txt
> file into individual txt files--one per message.
>
> Posts are stamped with a date and time, messages can be of any length.
> Posters are sometimes address by their time (as it was an anon forum)
> but the full time/date stamp is always unique to the start of a
> message.

G'day everyone

The solution given to this question is exactly what I'm looking for,
except I need to split a concatenated PHP file. Basically, I have one
large text file into which I have copied PHP file after PHP file, and
now I want to split them up again. The PHP file always begins with

<?php

and always ends with

?>

so it should be fairly easy to adjust the above script, shouldn't it?
However, I have tried and failed. Also, what would the command line be
for it? Can anyone help me with the adaptation?

Thanks a lot
Samuel (aka throw aka leuce aka voetleuce)

"Throw" <> wrote in news:1140187205.361247.173780
@g43g2000cwa.googlegroups.com:

> except I need to split a concatenated PHP file. Basically, I have one
> large text file into which I have copied PHP file after PHP file, and
> now I want to split them up again. The PHP file always begins with
>
> <?php
>
> and always ends with
>
> ?>
>
> so it should be fairly easy to adjust the above script, shouldn't it?
> However, I have tried and failed.

What have you tried and what has failed?

Please read the posting guidelines for this group. They provide you with
invaluable information you can use to help your self as well as helping us
help you.

Sinan

--
A. Sinan Unur <>
(reverse each component and remove .invalid for email address)

comp.lang.perl.misc guidelines on the WWW:
http://mail.augustmail.com/~tadmc/cl...uidelines.html

Throw <> wrote:

> so it should be fairly easy to adjust the above script, shouldn't it?
> However, I have tried and failed.


What have you tried?

If you show us your broken code we could help you fix it.


--
Tad McClellan SGML consulting
Perl programming
Fort Worth, Texas

Throw wrote:
> wrote:
>
> > I need to split an archive of a discussion forum saved as one huge txt
> > file into individual txt files--one per message.
> >
> > Posts are stamped with a date and time, messages can be of any length.
> > Posters are sometimes address by their time (as it was an anon forum)
> > but the full time/date stamp is always unique to the start of a
> > message.
>
> G'day everyone
>
> The solution given to this question is exactly what I'm looking for,
> except I need to split a concatenated PHP file. Basically, I have one
> large text file into which I have copied PHP file after PHP file, and
> now I want to split them up again. The PHP file always begins with
>
> <?php
>
> and always ends with
>
> ?>
>
> so it should be fairly easy to adjust the above script, shouldn't it?
> However, I have tried and failed. Also, what would the command line be
> for it? Can anyone help me with the adaptation?

check out this FAQ:
http://groups.google.com/group/comp....86c9f8a384c887

it_says_BALLS_on_your_forehead wrote:
> Throw wrote:
> > wrote:
> >
> > > I need to split an archive of a discussion forum saved as one huge txt
> > > file into individual txt files--one per message.
> > >
> > > Posts are stamped with a date and time, messages can be of any length.
> > > Posters are sometimes address by their time (as it was an anon forum)
> > > but the full time/date stamp is always unique to the start of a
> > > message.
> >
> > G'day everyone
> >
> > The solution given to this question is exactly what I'm looking for,
> > except I need to split a concatenated PHP file. Basically, I have one
> > large text file into which I have copied PHP file after PHP file, and
> > now I want to split them up again. The PHP file always begins with
> >
> > <?php
> >
> > and always ends with
> >
> > ?>
> >
> > so it should be fairly easy to adjust the above script, shouldn't it?
> > However, I have tried and failed. Also, what would the command line be
> > for it? Can anyone help me with the adaptation?
>
> check out this FAQ:
> http://groups.google.com/group/comp....86c9f8a384c887

remember when crafting your solution, if you want to use John's
example, you must have some sort of unique identifier for each file you
want to write. since there's no unique timestamp, i would suggest an
iterator in the while loop. If you couple John's example with the
information in the FAQ linked to above, the answer should be obvious.