G
grocery_stocker
This person has like 20 perl scripts related to Audio/Video streaming
his stuff on the web. Just about every script has this near the top of
it
my $progname = $0; $progname =~ s@.*/@@g;
my $version = q{ $Revision: 1.27 $ }; $version =~ s/^[^0-9]+([0-9.]+).*
$/$1/;
I thought he might be parsing some kind of RCS file to get the current
version, but then that would explain
my $version = q{ $Revision: 1.27 $ };
Can someone clarify this for me please.
his stuff on the web. Just about every script has this near the top of
it
my $progname = $0; $progname =~ s@.*/@@g;
my $version = q{ $Revision: 1.27 $ }; $version =~ s/^[^0-9]+([0-9.]+).*
$/$1/;
I thought he might be parsing some kind of RCS file to get the current
version, but then that would explain
my $version = q{ $Revision: 1.27 $ };
Can someone clarify this for me please.