PerlでCSV形式データ作成・出力

  • Posted on: 12 May 2018
  • By: admin
#!/usr/bin/perl
use strict;

use Encode;
use Text::CSV_XS;

my @array_to_csv = (
  "Dr Dre",
  "50 Cent", 
  "Eminem",
  "Nelly",
  "Busta Rhymes"
);

my $csv = Text::CSV_XS->new();
$csv->combine(@array_to_csv);
print encode('utf-8',$csv->string()), "\n";

 

Tags: 

grubメモ

Windows起動

grub> ls
grub> ls (hd0,gpt1)
grub> set root=(hd0,gpt1)
grub> chainloader (hd0,gpt1)/efi/Microsoft/Boot/bootmgfw.efi
grub> boot

Drupal で郵便番号データを自動更新するための設定

10数万件ある郵便番号CSVデータを定期的に取得して、Drupalにインポートするための設定。

月末にデータ更新されているので、毎月5日にCSVを取得するようにOSのcronを設定し、月次のDrupal cronで1時間おきに500件ずつインポートして約10日で完了。

コンテンツタイプは作成済みの前提で、以下に設定を記述する。

Feeds設定

ページ