Skip to content

Instantly share code, notes, and snippets.

@louiee

louiee/id.pl

Created November 21, 2019 14:59
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save louiee/ce78c6ec179fd5f4ec5c1d50af0bf945 to your computer and use it in GitHub Desktop.
Save louiee/ce78c6ec179fd5f4ec5c1d50af0bf945 to your computer and use it in GitHub Desktop.
Download ZIP
値とキーをカンマ区切りにしてるもの
Raw
id.pl
#!/usr/bin/perl
use 5.010;
my @t = qw/
c19001,ID
s19001,ID
IT COLLEGE,School
GAIGO,School
Game Creater,Class
3.Level
Japan,Country
Okinawa,Pref/;
for(@t){
$_ =~ /(.*),(.*)/;
say "$2 = $1";
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment