zino/pkrstarsbot
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

init commit

Browse Source
This commit is contained in:
zino
2021-02-16 23:07:41 +01:00
parent ec3fc78e0f
commit 12b4ef5db4
5000 changed files with 2596132 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
server/lab.pl Normal file
View File

@@ -0,0 +1,27 @@
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 "$!";