Inserting word

[teser]

I need to insert a word in meta tags in several html pages in my directory.

My tag looks like this:[tt]
<meta name=&quot;department&quot; content=&quot;department&quot;>
<meta name=&quot;building&quot; content=&quot;area,address,side&quot;>
<meta name=&quot;room&quot; content=&quot;number,space&quot;>
<meta name=&quot;cubicle&quot; content=&quot;part,sitting locale,phone number&quot;>
[/tt]

I need it to look like this (with the word area. added).
[tt]
<meta name=&quot;area.department&quot; content=&quot;department&quot;>
<meta name=&quot;area.building&quot; content=&quot;area,address,side&quot;>
<meta name=&quot;area.room&quot; content=&quot;number,space&quot;>
<meta name=&quot;area.cubicle&quot; content=&quot;part,sitting locale,phone number&quot;>[/tt]

 

[baad]

suppose you already have those filenames in an array..

foreach $ff (@files){
open(FF,$ff);
chomp(@content=<FF>);
close(FF);

foreach $str (@content){
$str =~ s/<meta\s+name\=\&quot;/<meta\s+name\=\&quot;area\./gi
}
open(FF,&quot;>$ff&quot;
foreach (@content){
print FF $_;
}
close(FF);
}

or some sort of.. Victor

 

[teser]

I tried the above script but it didnt work but I got it to work on just
one file using the below script. Now can someone advise how I can get
this to work in a directory to search and change all the files in that directory?


[tt]
$db = 'met.txt';
open(DATA, &quot;$db&quot or die &quot;File does not open: $!&quot;;
@data = (<DATA>);
close (DATA);
open(DATA, &quot;>$db&quot or die &quot;File not open: $!&quot;;

foreach $line (@data)
{
$line =~ s/<meta name\=\&quot;/<meta name\=\&quot;area\./gi;
print DATA $line;
}
close(DATA);[/tt]

 

[Rieekan]

All you really need to do now is add in a glob of the directory you'd like to search. Assuming the files you're looking to make the changes to are all in one directory, the statement below should work.

@files = glob('c:\path\to\files');

foreach $db (@files)
{
open(DATA, &quot;$db&quot or die &quot;File does not open: $!&quot;;
@data = (<DATA>);
close (DATA);
open(DATA, &quot;>$db&quot or die &quot;File not open: $!&quot;;

foreach $line (@data)
{
$line =~ s/<meta name\=\&quot;/<meta name\=\&quot;area\./gi;
print DATA $line;
}
close(DATA);
}

 

[teser]

I tried the above script and keep getting the following message:
File does not open: Permission denied at C:\Perl\bin\met5.pl line 6.

I then added the opendir part and got the following message:
File not open: Permission denied at C:\Perl\bin\met5.pl line 9.

Here is the script:
[tt]
@files = glob('\Perl\bin\Newf');

foreach $db (@files)
{
opendir(DATA, &quot;$db&quot or die &quot;File does not open: $!&quot;;
@data = (<DATA>);
close (DATA);
open(DATA, &quot;>$db&quot or die &quot;File not open: $!&quot;;

foreach $line (@data)
{
$line =~ s/<meta name\=\&quot;/<meta name\=\&quot;area\./gi;
print DATA $line;
}
close(DATA);
}[/tt]

I have spent alot of time trying to get this to work. Please advise.

 

[tsdragon]

I posted a free perl program that you can easily customize to make this type of changes to one or more files. Check out:

http://www.bydisn.com/software/freestuff

Tracy Dryden
tracy@bydisn.com

http://www.bydisn.com

Meddle not in the affairs of dragons,
For you are crunchy, and good with mustard.