Wie finde ich Skalarnamen in Texten?

Text::Find::Scalar

#!/usr/bin/perl

use strict;
use warnings;

use Text::Find::Scalar;

my $string = q~Dies ist eine $variable
eine $variable und noch "$eine" und '$keine' 
und ne $referenz->{$key}~;

my $finder = Text::Find::Scalar->new();
my @scalars = $finder->find($string);

print $_,"\n" for(@scalars);

C:\community>find_scalar.pl
$variable
$variable
$eine
$referenz->{$key}

Ergänzungen, Kommentare

---+++ Main.??? - 14 Jul 2003 - Betreff