Tag: perl

บางคนว่าเกรดนั้นไม่สำคัญ แต่นายจ้างบางคนบอกว่าใช้เลือกคน

http://www.youtube.com/watch?v=sbDX-dcEqkg

มีผู้คนมากมายบอกว่าเกรดจากการเรียนหนังสือนั้นไม่สำคัญ
สิ่งสำคัญคือความรู้ที่ได้รับระหว่างเป็นนักศึกษา และการปรับตัวในสังคมหลังสำเร็จการศึกษา
แต่เกรดเป็นส่วนประกอบที่ทำให้ผู้ประกอบการบางคน ให้โอกาสในการทำงาน
โดยใช้พิจารณาเลือกรับเข้าทำงาน
เพราะถ้าบอกว่าได้ 3 กว่า ย่อมได้รับโอกาสให้เข้าไปทำงาน มากกว่าคนที่ได้ 2 นิด ๆ
ดังนั้นหากรู้ตัวสักนิดว่าตอนนี้เรียนแล้วได้เกรดอย่างไรบ้าง .. ก็น่าจะช่วยได้บ้าง

Perl source code
$fm = join “”, “https://chart.googleapis.com/chart?chs=700×400&chd=t:”
,  $gda , “,” ,  $gdbp , “,” ,  $gdb , “,” ,  $gdcp , “,” ,  $gdc , “,”
,  $gddp , “,” ,  $gdd , “,” ,  $gdf
, “&chco=00FF00|00AA00|004400|0000FF|8888FF|FFFF00|FF4444|FF0000&cht=p&chl=A ”
,  $gda , “|B%2B ” ,  $gdbp , “|B ” ,  $gdb , “|C%2B ” ,  $gdcp , “|C ” ,  $gdc , “|D%2B ” ,  $gddp , “|D ” ,  $gdd , “|F ” ,  $gdf , “&chdl=A ” ,  $gda , ” : ”
, substr($gda/$tgd*100,0,4) ,  “% |B%2B ” ,  $gdbp , ” : “, substr($gdbp/$tgd*100,0,4)
, “% |B ” ,  $gdb, ” : “, substr($gdb/$tgd*100,0,4)  , ‘% |C%2B ‘ ,  $gdcp , ” : ”
, substr($gdcp/$tgd*100,0,4)  , ‘% |C ‘ ,  $gdc , ” : “, substr($gdc/$tgd*100,0,4)
, ‘% |D%2B ‘ ,  $gddp , ” : “, substr($gddp/$tgd*100,0,4)  , ‘% |D ‘ ,  $gdd , ” : ”
, substr($gdd/$tgd*100,0,4)  , ‘% |F ‘ ,  $gdf , ” : “, substr($gdf/$tgd*100,0,4)
, ‘%’;
print “<iframe width=’760′ height=’450′ src='”,  $fm , “‘></iframe>”;

output in URL
https://chart.googleapis.com/chart?chs=700×400&chd=t:4,1,2,6,1,2,0,0
&chco=00FF00|00AA00|004400|0000FF|8888FF|FFFF00|FF4444|FF0000&cht=p
&chl=A%204|B%2B%201|B%202|C%2B%206|C%201|D%2B%202|D%200|F%200
&chdl=A%204%20:%2025%%20|B%2B%201%20:%206.25%%20|B%202%20:%2012.5%%20
|C%2B%206%20:%2037.5%%20|C%201%20:%206.25%%20|D%2B%202%20:%2012.5%%20
|D%200%20:%200%%20|F%200%20:%200%

grade classification
grade classification

รวมคลิ๊ปโครงการกรุงเทพฯ สีขาว
http://www.mcot.net/site/streaming?id=50ce975e150ba01f1e000382&type=video#.UNHLna55dwj

text processing แบบ csv ในภาษา perl

ตัวอย่างผลแบบ csv
ตัวอย่างผลแบบ csv

มีโอกาสรื้อโค้ดภาษา perl อ่าน course กับ regist
ซึ่งจัดเก็บแบบ csv โดยส่งรหัสนักศึกษา ปี และภาค ไปถาม
แล้วตอบกลับเป็นรายวิชาที่ลงทะเบียน
ทำให้รู้ว่าลงวิชาอะไรไปบ้างในแต่ละภาคเรียน
เป็นเพียงช่วงหนึ่งของ code หลักที่ใช้ทำ transcript
แต่มีเพื่อนต้องการข้อมูลเพียงเท่านี้ไปประมวลผลต่อ
จึงตัด code ออกมาให้เหลือข้อมูลเท่านี้
มีตัวอย่าง code ดังนี้
#!/usr/bin/perl
# ?idstd=1234&yr=2012&sem=1
&parse;
print “Content-type:text/html\n\n”;
open(FILE,”course.txt”); @rec=&lt;FILE>; close(FILE);
foreach $r(@rec) {
@d = split(“,”,$r);
$dd = join ‘,’,$d[2],$d[3],$d[4]; #code, subject name, credit
$scode{$d[0]} = $dd;
}
# ==================
$file = join ”,”regist”, $config{‘yr’} , $config{‘sem’} ,”.txt”;
open(FILE,”$file”); @rec=&lt;FILE>; close(FILE);
foreach $r(@rec) {
@r = split(“\n”,$r);
@d = split(“,”,$r[0]);
if ($config{‘idstd’} eq $d[2]) {  print  $d[1] . “,”.$scode{$d[2]}.”,&lt;br/>”; }
}
# ==================
sub parse {
if ($ENV{‘REQUEST_METHOD’} eq ‘GET’) {
@pairs = split(/&/, $ENV{‘QUERY_STRING’});
} elsif ($ENV{‘REQUEST_METHOD’} eq ‘POST’) {
read(STDIN, $buffer, $ENV{‘CONTENT_LENGTH’});
@pairs = split(/&/, $buffer);
}
foreach $pair (@pairs) {
local($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack(“C”, hex($1))/eg;
$name =~ s/~!/~!/g;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack(“C”, hex($1))/eg;
$value =~ s/~!/~!/g;
$value =~ s/&lt;!–(.|\n)*–>//g;
$config{$name} = $value;
}
}