#!c:/perl/bin/perl #------------------------------------------------------- # ここにデータを貼り付けてください #------------------------------------------------------- $data =<

use strict; use warnings; use Data::Dumper; <---- ここ！ %p={･･･}; print Dumper(\%p); #リファレンスを渡す！

while ( my ($key, $value) = each(% { $user1->{labels} }) ) { $buffer->{ "form_label_" . $key} = $value ; }

PHP・Perl共通 string quotemeta ( string $str ) 文字列 str について、 . \ + * ? [ ^ ] ( $ ) の前にバックスラッシュ文字 (\) でクォートして返します。

CGIアプリケーションの頻出機能一考 ログイン認証 セッション クッキー アップロード ダウンロード ＝ Javascript＝ビュー 一覧 カレンダー 週間

#!/usr/bin/perl use Net::SMTP; use MIME::Entity; # Settings our $SENDER = "kotaka\@yourdomain.co.jp"; our $RECIPIENT = "kotaka\@yourdomain.co.jp"; our $smtp_srv = "192.168.1.254"; our $smtp_domain = "yourdomain.co.jp"; our $SUBJECT = "back…

Sub 一覧取得() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = New ADODB.Connection Set rs = New ADODB.Recordset Dim strSQL Dim DB_FILE As String Dim SHEET_LIST As String DB_FILE = "C:\www\confidential\New登録スタッフデータ.m…

以下のような配列データがあるとします my @data=( {"id"=>1, 'title'=>'sample1', 'created_at'=>'2009/01/31'}, {"id"=>2, 'title'=>'abmple2', 'created_at'=>'2009/01/22'}, {"id"=>3, 'title'=>'fle3', 'created_at'=>'2009/01/23'}, {"id"=>4, 'title'…