erstes eigenes modul -> anfängerproblem - #98693 (Allgemeines zu Perl)

belor

2007-08-26 19:40

User since
2007-06-19
5 Artikel
BenutzerIn

guten abend,

ich wollte zum parsen von für mysql gefährlichen symbolen "<" etc. ein modul schreiben.

allerdings habe ich ein allgemeins verständisproblem.

das gleiche beispiel innerhalb einer subfunktion funktioniert perfekt.
was mache ich denn bei diesem modul falsch?

mfg
belor

modul:

Code: (dl )

package control;

use strict;

sub param {
  my $daten = shift();
  $daten =~ s/a/b/gi;

  return($daten);
}

1;

test programm:

Code: (dl )

#!/usr/bin/perl

use strict;
use eigene::control;

my $daten = "a";

print "daten: $daten\n";
print "-----\n";
&control::param("$daten");
print "daten: $daten\n";

ausgabe:

Code: (dl )

1
2
3

daten: a
-----
daten: a