Internet 1996 World Exposition/park.org.s3.amazonaws.com.7z/park.org.s3.amazonaws.com/Cdrom/TheNot/Stats/adelaide/webtrend/reform.pl

Perl Script | 2017-09-21 | 199 b | 11 lines

#!/usr/local/bin/perl

@result = split ('<!-- WT_PAGEBREAK -->', $_) ;

foreach $text ( @result )
    {
    open ( FILENAME , " > file.$text.html" ) ;
    print FILENAME "$result" ;
    close ( FILENAME ) ;
    }