Hatena::ブログ(Diary)

みずぴー日記 Twitter

2009-08-21(金)

行のシャッフル

| 行のシャッフルを含むブックマーク

30分プログラム、その645。行をシャッフルするワンライナー

今日、アンケート結果を誰がどう答えたかを分かりづらくするために、CSVから項目を取り出してシャッフルして出力するスクリプトを書きました。

せっかくだし、そこからシャッフルする部分だけを取り出して、行単位でシャッフルするコマンドを作っておきましょう。

最初は普通にファイルに書いてましたが、途中でワンライナーで十分なことに気がついたので切替えました。

使い方

$ gseq 1 10 | perl '-MList::Util qw(shuffle)' -e 'print shuffle <>'
1
3
10
7
6
8
9
4
5
2

ソースコード

一応、複数行バージョンも貼っておきますね。

#! /usr/bin/perl
# -*- mode:perl; coding:utf-8 -*-
#
# shuffle.pl -
#
# Copyright(C) 2009 by mzp
# Author: MIZUNO Hiroki / mzpppp at gmail dot com
# http://howdyworld.org
#
# Timestamp: 2009/08/21 20:35:41
#
# This program is free software; you can redistribute it and/or
# modify it under MIT Lincence.
#
use strict;
use warnings;
use Data::Dumper;
use List::Util qw(shuffle);

print shuffle <>;

参考

pgypgy 2009/08/22 13:03 http://d.hatena.ne.jp/pgy/20090822/1250911336
はじめまして。30minプログラム面白いです。ありがとう。
こんな問題を作ってみました。よかったらどうぞ。

mzpmzp 2009/08/23 08:42 お、ありがとうございます。
あとでチャレンジしてみます。

トラックバック - http://d.hatena.ne.jp/mzp/20090821/shuffle