view release on metacpan or  search on metacpan

lib/Net/WWD/Functions.pm  view on Meta::CPAN

        $code =~ s/getTag\(/Net\:\:WWD\:\:Functions\:\:getTag\(/g;
        $code =~ s/webget\(/Net\:\:WWD\:\:Functions\:\:webget\(/g;
        $code =~ s/currentURL\(/Net\:\:WWD\:\:Functions\:\:currentURL\(/g;
        $code =~ s/getData\(/Net\:\:WWD\:\:Functions\:\:getData\(/g;
        $code =~ s/storeData\(/Net\:\:WWD\:\:Functions\:\:storeData\(/g;
        $code =~ s/parseXML\(/Net\:\:WWD\:\:Functions\:\:parseXML\(/g;
        $code =~ s/\$param/DPERLPARAM/g;
        $code =~ s/\$ENV/DPERLENV/g;
        $code =~ s/\$\`/DPERLMPRE/g;
        $code =~ s/\$\'/DPERLMPOST/g;
	$code =~ s/\s+\(/\(/g;
	$code =~ s/\`//g;
	$code =~ s/\@/\@WWD/g;
	$code =~ s/\$/\$WWD/g;
#	$code =~ s/\&//g;
	$code =~ s/\%//g;
	$code =~ s/accept\(//g;
	$code =~ s/bind\(//g;
	$code =~ s/binmode\(//g;
	$code =~ s/chdir\(//g;
	$code =~ s/chmod\(//g;
	$code =~ s/chown\(//g;
	$code =~ s/chroot\(//g;
	$code =~ s/close\(//g;
	$code =~ s/closedir\(//g;
	$code =~ s/connect\(//g;
	$code =~ s/dbmclose\(//g;
	$code =~ s/dbmopen\(//g;
	$code =~ s/die\(//g;
	$code =~ s/dump\(//g;
	$code =~ s/endgrent\(//g;
	$code =~ s/endhostent\(//g;
	$code =~ s/endnetent\(//g;
	$code =~ s/endprotoent\(//g;
	$code =~ s/endpwent\(//g;
	$code =~ s/endservent\(//g;
	$code =~ s/eof\(//g;
	$code =~ s/eval\(//g;
	$code =~ s/exit\(//g;
	$code =~ s/fcntl\(//g;
	$code =~ s/fileno\(//g;
	$code =~ s/flock\(//g;
	$code =~ s/fork\(//g;
	$code =~ s/format\(//g;
	$code =~ s/getc\(//g;
	$code =~ s/getgrent\(//g;
	$code =~ s/getgrgid\(//g;
	$code =~ s/getgrnam\(//g;
	$code =~ s/gethostbyaddr\(//g;
	$code =~ s/gethostbyname\(//g;
	$code =~ s/gethostent\(//g;
	$code =~ s/getlogin\(//g;
	$code =~ s/getnetbyaddr\(//g;
	$code =~ s/getnetent\(//g;
	$code =~ s/getnetbyname\(//g;
	$code =~ s/getprotobyname\(//g;
	$code =~ s/getprotobynumber\(//g;
	$code =~ s/getprotoent\(//g;
	$code =~ s/getpwent\(//g;
	$code =~ s/getpwnam\(//g;
	$code =~ s/getpwuid\(//g;
	$code =~ s/getservbyname\(//g;
	$code =~ s/getservbyport\(//g;
	$code =~ s/getservent\(//g;
	$code =~ s/glob\(//g;
	$code =~ s/import\(//g;
	$code =~ s/ioctl\(//g;
	$code =~ s/kill\(//g;
	$code =~ s/link\(//g;
	$code =~ s/listen\(//g;
	$code =~ s/lstat\(//g;
	$code =~ s/mkdir\(//g;
	$code =~ s/open\(//g;
	$code =~ s/opendir\(//g;
	$code =~ s/printf\(//g;
	$code =~ s/read\(//g;
	$code =~ s/readdir\(//g;
	$code =~ s/readlink\(//g;
	$code =~ s/recv\(//g;
	$code =~ s/rename\(//g;
	$code =~ s/require\(//g;
	$code =~ s/reset\(//g;
	$code =~ s/rewinddir\(//g;
	$code =~ s/rmdir\(//g;
	$code =~ s/seek\(//g;
	$code =~ s/seekdir\(//g;
	$code =~ s/select\(//g;
	$code =~ s/send\(//g;
	$code =~ s/setgrent\(//g;
	$code =~ s/sethostent\(//g;
	$code =~ s/setnetent\(//g;
	$code =~ s/setprotoent\(//g;
	$code =~ s/setpwent\(//g;
	$code =~ s/setservent\(//g;
	$code =~ s/shutdown\(//g;
	$code =~ s/socket\(//g;
	$code =~ s/socketpair\(//g;
	$code =~ s/stat\(//g;
	$code =~ s/symlink\(//g;
	$code =~ s/syscall\(//g;
	$code =~ s/sysopen\(//g;
	$code =~ s/sysread\(//g;
	$code =~ s/sysseek\(//g;
	$code =~ s/system\(//g;
	$code =~ s/syswrite\(//g;
	$code =~ s/tell\(//g;
	$code =~ s/telldir\(//g;
	$code =~ s/truncate\(//g;
	$code =~ s/umask\(//g;
	$code =~ s/unlink\(//g;
	$code =~ s/use\(//g;
	$code =~ s/utime\(//g;
	$code =~ s/warn\(//g;
	$code =~ s/write\(//g;
	$code =~ s/\$wwd//g;
        $code =~ s/DPERLPARAM/\$param/g;
        $code =~ s/DPERLENV/\$ENV/g;
        $code =~ s/DPERLMPRE/\$\`/g;
        $code =~ s/DPERLMPOST/\$\'/g;
        $code =~ s/DPERLDOLLAR/\$/g;
	return $code;