Shell Programming and Scripting

#!/usr/bin/perl

use warnings;
use strict;
use POSIX;

my @shtml_files = <*\.shtml>;

my $filename = "sitemap_test.xml";


foreach my $shtml_files (@shtml_files)
{
    my $lastmod = strftime("%Y-%m-%dT%H:%M:%S-06:00", localtime((stat($shtml_files))[9]));

        open (MYFILE, "+<$filename") or die "Cannot open file: $!";
        while (<MYFILE>)
            {
            if (m/$shtml_files/) 
                {
                
                my $nextLine = <MYFILE>;
            
                my $nextLine1 = <MYFILE>;
           
                my $sub = $nextLine1;
                $sub =~ s/$nextLine1/<lastmod>$lastmod<\/lastmod>/;
                print MYFILE "$sub\n";
                
                }

            }
        
        close (MYFILE);
        
}

<?xml version="1.0" encoding="UTF-8"?> 

<urlset 

xmlns="http://www.sitemaps.org/schemas/sitemap/0.9"

xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"

xsi:schemaLocation="http://www.sitemaps.org/schemas/sitemap/0.9

http://www.sitemaps.org/schemas/sitemap/0.9/sitemap.xsd" 

> 

<url> 

<loc>http://www.saildallas.com/index.shtml</loc> 

<lastmod>2010-03-15T14:27:00-05:00</lastmod> 

<priority>1.0</priority> 

<changefreq>weekly</changefreq> 

</url> 

<url> 

<loc>http://www.saildallas.com/events.shtml</loc> 

<lastmod>2010-02-15T14:27:00-05:00</lastmod> 

<priority>0.5</priority> 

<changefreq>daily</changefreq> 

</url>

<url> 

<loc>http://www.saildallas.com/yachtsales.shtml</loc> 

<lastmod>2010-02-15T14:27:00-05:00</lastmod> 

<priority>0.6</priority> 

<changefreq>daily</changefreq> 

</url>

</urlset>

$ 
$ 
$ cat -n process.pl
     1    #!/usr/bin/perl
     2    use warnings;
     3    use strict;
     4    use POSIX;
     5    
     6    my $lastmod;
     7    my @shtml_files;
     8    foreach (<*\.shtml>) {
     9      push @shtml_files, $_.strftime("%Y-%m-%dT%H:%M:%S-06:00", localtime((stat($_))[9]));
    10    }
    11    
    12    my $old = "sitemap_test.xml";
    13    my $old_orig = "sitemap_test_orig.xml";
    14    my $new = "sitemap_test_new.xml";
    15    
    16    open (OLD, "< $old") or die "Can't open $old: $!";
    17    open (NEW, "> $new") or die "Can't open $new: $!";
    18    select(NEW);   # new default filehandle
    19    while (<OLD>) {
    20      # process line, change $_ if required and then print to NEW filehandle
    21      if (/<loc>(.*?)<\/loc>/ and grep {/^$1/} @shtml_files) {
    22        $lastmod = (grep {/^$1/} @shtml_files)[0];
    23        $lastmod =~ s/^$1//;
    24      } elsif (/<lastmod>(.*?)<\/lastmod>/ and $lastmod ne "") {
    25        $_ = "<lastmod>$lastmod<\/lastmod>\n";
    26        $lastmod = "";
    27      }
    28      print NEW $_;
    29    }
    30    close (OLD) or die "Can't close $old: $!";
    31    close (NEW) or die "Can't close $new: $!";
    32    rename($old, $old_orig) or die "Can't rename $old to $old_orig: $!";
    33    rename($new, $old) or die "Can't rename $new to $old: $!";
    34    
$ 
$

#! /usr/bin/perl

use strict;
use warnings;
use POSIX qw~strftime~;

my @shtmls = glob ( '*.shtml' );
my %filemtime;

for ( @shtmls ) {

   my $lastmod = strftime("%Y-%m-%dT%H:%M:%S-06:00", localtime((stat($_))[9]));
   $filemtime{$_} = $lastmod;

}

open ( F, "sitemap.xml" ) || die "$!\n";
my @xml = <F>;
close F;

my ($new, $ON);

for ( @xml ) {

    for my $fn ( keys %filemtime ) { if ( /<loc>.*$fn.*<\/loc>/ ) { $ON = $fn; }}
    if ( $ON && s/(<lastmod>).*?(<\/lastmod>)/$1$filemtime{$ON}$2/ ) { $ON = (); }
    $new .= $_;

}

open ( G, ">new.xml" ) || die "$!\n";
print G $new;
close G;