평소 패턴매칭으로 사용했으나 lib가 있었다.
패턴 매칭이 더 나은가?
이 글은 스프링노트에서 작성되었습니다.
php의 엑셀 파서는 너무 후지다. 무슨 이유에선지 원본 파일의 내용과 파싱한 내용이 다르다.
다른 이름으로 저장을 해봤더니 정상적으로 읽어진다. 하지만 고객들에게 매번 저장을 새로 하라고 할 수는 없는 노릇이다.
perl로 테스트를 해 봤더니 원본도 이상없이 파싱이 된다. 흠 php엑셀 파서를 perl로 변경해야 할까?
#!/usr/bin/perl -w
use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::FmtUnicode;
my $oExcel = new Spreadsheet::ParseExcel;
my $oFmt = Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map => "euc-kr");
use XML::Excel;
my $parser = Spreadsheet::ParseExcel->new();
my $excel_obj = XML::Excel->new({ParseExcel => $parser});my @arr_data;
my $workbook = $parser->Parse('20090713101853_10002.XLS',$oFmt);for my $worksheet ( $workbook->worksheets() ) {
my ( $row_min, $row_max ) = $worksheet->row_range();
my ( $col_min, $col_max ) = $worksheet->col_range();for my $row ( $row_min .. $row_max ) {
my @_row;
for my $col ( $col_min .. $col_max ) {
my $cell = $worksheet->get_cell( $row, $col );
next unless $cell;
push(@_row, $cell->value());#print "Row, Col = ($row, $col)\n";
#print "Value = ", $cell->value(), "\n";
#print "Unformatted = ", $cell->unformatted(), "\n";
print "#";
}$arr_data[$row] = \@_row;
}
}
$excel_obj->{column_data} = \@arr_data;
$excel_obj->print_xml('aa.xml');
my $map = Unicode::Map->new("EUC-KR");
$sheet_name = $map->to_unicode("한글sheet명");
$worksheet = $workbook->add_worksheet( $sheet_name, 1 );
[root@pimz13 ~]# crontab -e5분에 한 번씩 watchdog을 실행 함
00,5,10,15,19,20,25,30,35,38,40,45,50,55 * * * * /usr/bin/perl /root/watchdog.sh
#!/bin/sh
. ~root/.bash_profile
perl /root/watchdog.pl
#!/usr/bin/perl -w
use strict ;
use Date::Calc qw(Add_Delta_Days) ;
my ( $todayd, $todaym, $todayy ) = (localtime)[3..5] ;
$todaym += 1 ;
$todayy += 1900 ;
my ($yesty,$yestm,$yestd) = Add_Delta_Days($todayy,$todaym,$todayd, -1) ;
어제 구하기..
DBD::mysql - A Perl5 Database Interface to the MySQL database
=============================================================
The driver installation is described in
INSTALL.html
In short: If you are using
Windows/ActivePerl
1.) If you need to use an HTTP Proxy, set the environment
variable http_proxy, for example like this:
set http_proxy=http://myproxy.com:8080/
2.) The actual installation is as simple as
ppm install DBI
ppm install DBD::mysql
As of this writing, the above procedure won't work with
ActivePerl 5.8.0, because so far a PPM for DBD::mysql is
not available from the ActiveState server. I don't know
why. However, Randy Kobes has kindly donated a PPM package
to his own repository. You can use this as follows:
ppm install http://theoryx5.uwinnipeg.ca/ppms/DBD-mysql.ppd
================
_OBJ_GRID.setTextOnly('ordNm', maxRow, '장은정(cchang700)');_OBJ_GRID.setTextOnly('ordNm', maxRow, '장은정(cchang700)')
;_OBJ_GRID.setTextOnly('ordNm', maxRow, '장은정(cchang700)');
===================
Word is ordNm, maxRow , 장은정(cchang700) ends at position 57
Word is ordNm, maxRow , 장은정(cchang700) ends at position 114
Word is ordNm, maxRow , 장은정(cchang700) ends at position 171
A recent conversation in the chatterbox gave me the idea to write this. A beginning programmer was trying to encode some information with pack and unpack but was having trouble coming to grips with exactly how they work. I have never had trouble with them but I came to programming from a hardware background and I'm very familiar with assembly and C programming. People who have come to programming recently have probably never dealt with things at such a low level and may not understand how a computer stores data. A little understanding at this level might make pack and unpack a little easier to figure out.
Perl can handle strings, integers and floating point values. Occassionally a perl programmer will need to exchange data with programs written in other languages. These other languages have a much larger set of datatypes. They have integer values of different sizes. They may only be capable of dealing with fixed length strings (dare I say COBOL?). Sometimes, there may be a need to exchange binary data over a network with other machines. These machines may have different word sizes or even store values differently. Somehow, we need to get our data into a format that these other programs and machines can understand. We also need to be able to interpret the responses we get back.
Perl's pack and unpack functions allow us to read and write buffers of data according to a template string. The template string allows us to indicate specific byte orderings and word sizes or use the local system's default sizes and ordering. This gives us a great deal of flexibility when dealing with external programs.
In order to understand how all of this works, it helps to understand how computers store different types of information.
의외로 내장 함수가 없구만..
장난해? ㅋㅋㅋ
# Perl trim function to remove whitespace from the start and end of the string
sub trim($)
{
my $string = shift;
$string =~ s/^\s+//;
$string =~ s/\s+$//;
return $string;
}
# Left trim function to remove leading whitespace
sub ltrim($)
{
my $string = shift;
$string =~ s/^\s+//;
return $string;
}
# Right trim function to remove trailing whitespace
sub rtrim($)
{
my $string = shift;
$string =~ s/\s+$//;
return $string;
}#!/usr/bin/perl -w
use strict;
use SOAP::Lite 'trace', 'debug';
my $server = SOAP::Lite
->uri('http://ws.robstones-services.co.uk/External')
->proxy('http://ws.robstones-services.co.uk/external.asmx');
my $returned = $server
->getCallList({
'Username' => 'RobsUser',
'Password' => 'RobsPassword'
});
foreach my $type ($returned->valueof('//getCallListResult/string'))
{
next unless ($type); ## ignore any undefs
print "$type\n";
}
# $str_json에는 json형식의 string 데이터가 들어간다.
# orderingConfirmList의 key에 array의 형식으로 데이터가 들어있음[{"ORDER_NO":"11"},{"ORDER_NO":"2"}] 모 이쯤 되겠지.
# 그라지~~~
my $_scalar = from_json( $_str_json );
my @values = @{$_scalar->{'orderingConfirmList'}};
foreach my $_v ( @values )
{
# print Dumper ( $_v );
print $_v->{ORD_NO}. "\n";
}
DBIx::Class - Extensible and flexible object <-> relational mapper.
확장이 가능하다라, 어떻게 확장을 하겠다는 이야기인지?
샘플:
step 1. 먼저 사용자 객체를 생성한다.
1. Create a schema class called DB/Main.pm:
package DB::Main;
use base qw/DBIx::Class::Schema/;
__PACKAGE__->load_classes();
1;
2. Create a table class to represent artists, who have many CDs, in DB/Main/Artist.pm:
package DB::Main::Artist;
use base qw/DBIx::Class/;
__PACKAGE__->load_components(qw/PK::Auto Core/);
__PACKAGE__->table('artist');
__PACKAGE__->add_columns(qw/ artistid name /);
__PACKAGE__->set_primary_key('artistid');
__PACKAGE__->has_many(cds => 'DB::Main::CD');
1;
3. DB/Main/CD.pm 에 CD class 생성
package DB::Main::CD;
use base qw/DBIx::Class/;
__PACKAGE__->load_components(qw/PK::Auto Core/);
__PACKAGE__->table('cd');
__PACKAGE__->add_columns(qw/ cdid artist title year /);
__PACKAGE__->set_primary_key('cdid');
__PACKAGE__->belongs_to(artist => 'DB::Main::Artist');
1;
step 2. 프로그램 내부에서 사용
###################################################
# Connect to your database.
use DB::Main;
my $schema = DB::Main->connect($dbi_dsn, $user, $pass, \%dbi_params);
# dbi_params는 어떤것이지?
# Query for all artists and put them in an array,
# or retrieve them as a result set object.
my @all_artists = $schema->resultset('Artist')->all;
my $all_artists_rs = $schema->resultset('Artist');
# where 조건을 만들어 넣는군..흠흠..
# Create a result set to search for artists.
# This does not query the DB.
my $johns_rs = $schema->resultset('Artist')->search(
# Build your WHERE using an SQL::Abstract structure:
{ name => { like => 'John%' } }
);
# Fetch only the next row.
my $first_john = $johns_rs->next;
등등..흠 초기에 설정만 잘 해 놓으면 쉽게 사용이 가능하겠군.
굳이 좋은 점이라면 여러군데 산재되어 있는 query의 컨트롤 가능?
<html>스크리핑 실행하는 perl 모듈
<head><title>test</title>
<body>
<form>
<input type=hidden name="hidden1" value="v_h1">
<input type=text name="txt1" value="v_txt1">
<input type=text name="txt2" value="v_txt2">
<input type=hidden name="hidden2" value="v_txt2">
<input type=checkbox name="chk1" value="v_chk1" >
<input type=checkbox name="chk1" value="v_chk2" checked>
<input type=radio name="rdo1" value="v_rdo1" >
<input type=radio name="rdo1" value="v_rdo2" checked>
<textarea name='txt_desc'>haha</textarea>
</form>
</body>
</html>
use WWW::Mechanize;
use Data::Dumper;
#############################
# begin of test part
# form 값을 parsing
my $agent = WWW::Mechanize->new( );
$agent->get( "http://scm.ezadmin.co.kr/test_form.html" );my @forms = $agent->forms();
my $form = $forms[0];print Dumper $form;
print "\n ============================ \n";
# Check all the boxes
foreach my $input ( @{$form->{inputs}} ) {
print $input->{name} , "/" ;# hidden, text 처리
if ( $input->{type} eq "text" or $input->{type} eq "hidden" or $input->{type} eq "textarea" )
{
print $input->{value}, "\n";
}
elsif ( $input->{type} eq "checkbox" or $input->{type} eq "radio" )
{
my $current = $input->{current};
print $input->{menu}[$current]->{value} . "\n";
}
}
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::FmtUnicode;
my $oExcel = new Spreadsheet::ParseExcel;my $oFmt = Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map => "euc-kr");
my $oBook = $oExcel->Parse("kshsame.xls", $oFmt);my($iR, $iC, $oWkS, $oWkC);
print "FILE :", $oBook->{File} , "\n";
print "COUNT :", $oBook->{SheetCount} , "\n";
print "AUTHOR:", $oBook->{Author} , "\n";
for(my $iSheet=0; $iSheet < $oBook->{SheetCount} ; $iSheet++) {
$oWkS = $oBook->{Worksheet}[$iSheet];
print "--------- SHEET:", $oWkS->{Name}, "\n";
for(my $iR = $oWkS->{MinRow} ;
defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; $iR++) {
for(my $iC = $oWkS->{MinCol} ;
defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ; $iC++) {
$oWkC = $oWkS->{Cells}[$iR][$iC];
print "( $iR , $iC ) =>", $oWkC->Value, "\n" if($oWkC); # Formatted Value
print "( $iR , $iC ) =>", $oWkC->{Val}, "\n" if($oWkC); # Original Value
}
}
}