[perl] How to write file with UTF-8

In the environment:
export PERL_UNICODE=SDL


on the commandline:
perl -CSDL -le 'print "\x{1815}";


or with binmode:
binmode(STDOUT, ":utf8");          #treat as if it is UTF-8
binmode(STDIN, ":encoding(utf8)"); #actually check if it is UTF-8


or with PerlIO:
open my $fh, ">:utf8", $filename
    or die "could not open $filename: $!\n";

open my $fh, "<:encoding(utf-8)", $filename
    or die "could not open $filename: $!\n";


or with the open pragma:
use open ":encoding(utf8)";
use open IN => ":encoding(utf8)", OUT => ":utf8";


#Cr. http://stackoverflow.com/questions/627661/how-can-i-output-utf-8-from-perl

linux commands in shell

cat ./../mainfile.php - Config file.

ls -la - Lists directory's.

ifconfig {eth0 etc} - Ipconfig equiv.

ps aux - Show running proccess's.

gcc in_file -o out_file - Compile c file.

cat /etc/passwd - List's accounts.

sudo - Superuser Do run a command as root provided you have perms
in /etc/sudoers.

id - Tells you what user your logged in as.

which wget curl w3m lynx - Check's to see what downloaders are
present.

uname -r - Shows all release info (or) cat /etc/release.

uname -a - shows all kernal info (or) cat /etc/issue

last -30 - Last logged 30 ip's can change to desired number.

useradd - Create new user account.

usermod - Modify user account.

w - See who is currently logged on.

locate password.txt - Locates password.txt in current dur can use *.

rm -rf / - Please be carefull with this command, i cannot stress this
enough.

arp -a - Lists other machines are on the same subnet.

lsattr -va - ls file attributes on linux second extended file system

find / -type f -perm -04000 -ls - Finds suid files.

find . -type f -perm -04000 -ls - Finds suid files in current dir.

find / -type f -perm -02000 -ls - Finds all sgid files.

find / -perm -2 -ls - Finds all writable files and folders.

find . -perm -2 -ls - Finds all writable files and folders in current dir.

find / -type f -name .bash_history - Finds bash history.

netstat -an | grep -i listen - shows open ports.

cut -d: -f1,2,3 /etc/passwd | grep :: - From memory creates a user
with no pass.

find /etc/ -type f -perm -o+w 2> /dev/null - Write in /etc/passwd?.

cat /proc/version /proc/cpuinfo - Cpu info.

locate gcc- Finds gcc if installed.

set - Display system variables.
echo $path- Echo current path.

lsmod- Dumps kernal modules.

mount/df- Check mounted file system.

rpm -qa- Check patch level for RedHat 7.0.

dmesg- Check hardware ino.

cat /etc/syslog.conf - Log file.

uptime - Uptime check.

cat /proc/meminfo - Memory check.

find / -type f -perm -4 -print 2> /dev/null- Find readble files.

find / -type f -perm -2 -print 2> /dev/null - Find writable files.

chmod ### $folder - Chmod folder.

ls -l -b - Verbosly list directory's

Credit : dodolenak

[วิธีแก้] RA2 & Yuri เล่นไม่ได้ ไม่เห็นเมนู / หน้าจอค้าง / หน้าจอมืด บน Win7

เนื่องจาก want ต้องการเล่น RedAlet2 & Yuri มากๆครับ เล่นบน Win7 64bit การ์ดจอ Intel ปรากฎว่า โหลดเกมมาแล้วเล่นไม่ได้ โดยภาพเกมจะค้าง มองไม่เห็นปุ่มเมนู แต่ยังเดากดปุ่มต่างๆได้ซะงั้น ผมก็เลยไปค้นหาวิธีแก้จากที่ต่างๆมาหลายที่ ส่วนใหญ๋แล้ว เขาจะบอกกันว่า ให้ไปตั้งค่าการ์ดแสดงผล HD Intel ให้เป็น maximum Performance ลองทำตามดู ก็ยังไม่ติด แล้วมาเจอเวปนึง จำที่มาเวปไม่ได้แล้ว ขออภัยด้วย เก็บเอาไว้แต่รูปภาพวิธีแก้ ตามนี้เลยครับ

ผมลองแล้ว WORK !!!!! :)

[How to] Copy ข้อความ จาก Dek-D แบบง่ายๆ

วิธีการก๊อปปี้ข้อความ จากเวป Dek-D แบบง่ายๆนะครับ

สรุปจาก VDO เลยละกัน วิธีก๊อปข้อความ หรือพวกนิยายอะไรงี้จากเวป Dek-D

ผมใช้ firefox นะครับ วิธีก๊อปปี้ข้อความก็คือ ปิด Style ของเวป โดยไปที่เมนู
View > Page Style > No Style

แค่นี้แหละ แล้วก็ก๊อปปี้ข้อความธรรมดาได้ละครับ

ปล.จะก๊อปอะไรไปไหน ก็อย่าลืมให้เครดิตด้วยละครับ :D

Edit : เพิ่งเห็นว่าวีดีโอมันมัวมากๆ ขอโทษด้วยนะครับ -/\- เอาเป็นว่าอย่าไปดูวีดีโอมันเลยละกัน อิอิ

WTF!!,, Firefox มันซดแรม

5555+ แดรกแรมไปเกือบ 3GB กราฟขึ้นยังกะรูปพีระมิด

[Perl] Search free anonymous proxy

#[Perl] Search free anonymous proxy
#Pastebin : http://pastebin.com/eqTWiNTz

#For : หาพร๊อกซี่ไว้ใช้งานฟรีๆละครับ แต่ลิสต์พร๊อกซี่ที่ได้ ก็ยังใช้ไม่ 100% เลย TT แต่ก็ยังดีว้า

use LWP::UserAgent;
$agent=LWP::UserAgent->new;
$agent->agent('Mozilla/8.0');
$agent->max_redirect(0);
$agent->timeout(5);

$content=$agent->get('http://www.proxylists.net/http.txt')->content;
print 'Checking http://www.proxylists.net/http.txt...';
print "\n";
$content=~s/\r//g;
open FILE,">proxylists.net_http.txt";
print FILE $content;
close FILE;

$content=$agent->get('http://www.proxylists.net/http_highanon.txt')->content;
print 'Checking http://www.proxylists.net/http_highanon.txt...';
print "\n";
$content=~s/\r//g;
open FILE,">proxylists.net_http_highanon.txt";
print FILE $content;
close FILE;

open PROXY,"proxylists.net_http.txt";
@proxy=;
close PROXY;

open PROXY,"proxylists.net_http_highanon.txt";
push(@proxy,);
close PROXY;

print 'Found all proxy... ',scalar(@proxy),"\n\n";;

foreach $z (@proxy) {
chomp($z);
($ip,$port)=split(/:/,$z);
$agent->proxy(['http'], 'http://'.$z.'/');
$content=$agent->get('http://www.opkwin.com/whatismyip.php')->content;
if ($content=~/^500/) {
print "$z Noop !!!\n";
}
elsif ($content=~/$ip/) {
print "$z Is OK...\n";
open(LOG,">>proxylists.net_available.txt");
print LOG "$z\n";
close(LOG);
}
else {
print "$z ERROR : $content\n";
}
}

#Search free proxy !!
#http://comfreedom.blogspot.com

[Perl] Facebook photo album download with perl

#[Perl] Facebook photo album download with perl
#Pastebin : http://pastebin.com/MRx8fGuV
#Usage : ' perl filename.pl username password album_url '


use LWP::UserAgent;
use HTTP::Cookies;

$user=(shift or 'email@fb_download.com');
$pass=(shift or 'password');
$album=(shift or 'http://www.facebook.com/media/set/?set=a.529237716211.2047231.4&type=3');

$cookie_jar=HTTP::Cookies->new(autosave=>1, hide_cookie2=>1);
$agent=LWP::UserAgent->new(
agent => 'Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US; rv:1.9.2.16) Gecko/20110319 Firefox/3.6.16',
timeout => 5,
max_redirect => 0,
cookie_jar => $cookie_jar
);
$login=$agent->get('http://www.facebook.com/login.php');
$login=$agent->post('https://www.facebook.com/login.php',
[
'locale' => 'en_US',
'email' => $user,
'pass' => $pass,
'persistent' => 1
]
)->content;

if ($login!~/Incorrect Email|Incorrect username|Please re-enter your password|Cookies Required/i) {
print "Login success...\n";
$album_content=$agent->get($album)->content;
while ($album_content=~/src=(http(.+?).jpg)&/ig) {
print url_decode($1),"\n";
save(url_decode($1));
}
}
else { print "Login failed!!\n"; }


sub url_decode {
my $str=shift;
$str=~s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg;
return $str;
}
sub url_encode {
my $str=shift;
$str=~s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;
return $str;
}
sub save {
$image=shift;
open TXT,">>FB_ablum_download.txt";
print TXT localtime." $image\n";
close TXT;

$saveimage=$agent->get($image)->content;
$image=~s/http:\/\/(.+)\///g;
open IMAGE,">$image";
binmode IMAGE;
print IMAGE $saveimage;
close IMAGE;
}

ฟู่วว ว์..