27 lines
944 B
Perl
27 lines
944 B
Perl
use strict;
|
|
use warnings;
|
|
use Data::Dumper;
|
|
|
|
my $str = 'PokerStars Hand #196201736872: Hold\'em No Limit (50/100) - 2019/01/25 11:06:25 ET';
|
|
my $regex = 'PokerStars Hand #(\d+?): (.*?) (.*?) \(\$?(\d+\.?\d*)\/\$?(\d+\.?\d*)(.*?)\) - (\d+?)\/(\d+?)\/(\d+?) (\d+?)\:(\d+?)\:(\d+?) (.*)';
|
|
|
|
|
|
if ($str =~ $regex) {
|
|
print "MATCHED\n";
|
|
}
|
|
else {
|
|
print "NO MATCH\n";
|
|
}
|
|
|
|
my @matches = $str =~ $regex;
|
|
print Dumper \@matches;
|
|
|
|
my $user = 'pkrstarsbot';
|
|
my $user2 = 'www-data';
|
|
my ($login,$pass,$uid,$gid) = getpwnam($user) or die "$user not in passwd file";
|
|
my ($login2,$pass2,$uid2,$gid2) = getpwnam($user2) or die "$user2 not in passwd file";
|
|
print "$login\n$pass\n$uid\n$gid\n";
|
|
my $cnt = chown $uid, $gid, '/home/pkrstarsbot/upload/1/HH20190125 Immo II - 50-100 - Play Money No Limit Hold\'em.txt' or die "$!";
|
|
print "$cnt\n";
|
|
|
|
unlink('/home/pkrstarsbot/upload/1/HH20190125 Immo II - 50-100 - Play Money No Limit Hold\'em.txt') or warn "$!"; |