水無月ばけらのえび日記

<xsl:template match="abbr">
<xsl:variable name="title"><xsl:value-of select="@title" /></xsl:variable>
<xsl:variable name="abbrcount"><xsl:number count="abbr[@title = $title]" format="1" /></xsl:variable>
<abbr>
<xsl:if test="@title">
<xsl:attribute name="title">
<xsl:value-of select="@title" />
</xsl:attribute>
</xsl:if>
<xsl:apply-templates />
</abbr>
<xsl:if test="$abbrcount = 1">
(<xsl:value-of select="@title" />)
</xsl:if>
</xsl:template>

while($line = <IN>){
$line =~ s/$foo/$bar/;
}