variablefile.pl:
$var = 8;
@array = ("A", "B", "C");
%hash = ( 32 => "Cherry", 43 => "Strawberry");
script using variable file:
require "variablefile.pl";
print "var=$var\n";
foreach $item (@array) {
print "item=$item\n";
}
foreach $key (keys %hash) {
print "key=$key value=$hash{$key}\n";
}text text text $var1 text text text
text text text $var2 text text text
(repeat for many lines)$color = "blue";
$day = "Tuesday";
$age = 28;
$file = "InputFile";
open(F, $file) or die "Can't open $file: $!\n";
while(<F>) {
chomp;
$_ =~ s/\$(\w+)/$$1/g;
print "$_\n";
}#!/usr/bin/perl -w
use strict;
my $var1 = "my substitution";
my $var2 = "another substitution";
open IN, "varinput" or die $!;
while (<IN>) {
chomp;
$_ = "\$_ = \"$_\"";
print "$_\n";
eval;
print "$_\n";
}$_ = "\$_ = \"$_\"";<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>
<BODY>
<h2>This is my header</h2>
<p>The variable dsn has a value of: $dsn</p>
<p>The variable variable has a value of: $variable</p>
</BODY>
</HTML>#! /usr/bin/perl
use Strict;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
my $var1 = "Users";
my $var2 = "Lots of text with spaces";
#*************************************************************
print header;
open (HTML, "<test.html") or die "Cannot open template: $!\n";
while (<HTML>)
{
chomp;
$_ = "$_";
eval;
print "$_\n";
}