perl tip needed

nico

Ok this is gonna sound nuts but I have a situation where I have files that have two title tag sets in lots of hmtl pages. The first title set is empty but the next set has the actual title i need to use. No due to the app I cannot remove the first title set, it's mandatory.

What I need to do is pull the <title>some content</title> "some content" portion from the second title set and put it in the first title of the page.

So the source will no longer look like
Old:
<title></title>
<title>some content</title>

Should look like
Need:
<title>some content</title>
<title>some content</title>

This sounds like a job for a perl script, any help is appreciated.

Thanks,
Nico

Adam Stoller

Try something like this perhaps:

my $text;
if (open(IN, "<$fname")){
    local $/ = undef;
    $text = <IN>;
    close(IN);
    if ($text =~ m|<title>(\s*[^<]+)</title>|){
        my $hold = $1;
        $text =~ s|<title>\s*</title>|<title>$hold</title>|;
    }
    if (open(OUT, ">$fname")){
        print OUT $text;
        close(OUT);
    }
}

--fish
(Interwoven Senior Technical Consultant)