| Server IP : 216.92.14.13 / Your IP : 216.73.216.171 Web Server : Apache System : Linux vps4089.pairvps.com 5.15.0-190-generic #200-Ubuntu SMP Fri Aug 7 15:06:04 UTC 2026 x86_64 User : rmlac2fmr ( 1040637) PHP Version : 8.2.32 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/local/bin/ |
Upload File : |
#!/usr/local/bin/perl
# $Id: XText.PL,v 1.1 1998/11/18 11:23:29 msh Exp msh $
#
# (C) 1998 Mike Shoyher
#
use strict;
my $n=0;
for(<STDIN>){
$n++;
extract($_);
}
sub extract($)
{
my $s=shift;
if ($s=~/^(.*)(\'.+\').*$/){
outString($2);
extract($1)
}
if ($s=~/^(.*)(\".+\").*$/){
outString($2);
extract($1)
}
}
sub outString($)
{
my $s=shift;
$s=~tr/\'/\"/;
print "#line $n\n";
print "msgid $s\nmsgstr \"\"\n\n";
}
=head1 NAME
XText - strings extractor for perl
=head1 SYNOPSIS
XText < <perl script> > <messages.po>
=head1 DESCRIPTION
Minimal version of strings extractor (just for testing)
=head1 BUGS
Must be completely rewritten.
=cut