ＵＮＩＸの住民の方々、教えて下れ。

プログラムのことを教えてくれませんか？
プログラムとは何者か？
簡易なプログラムなどを教えてください。
プログラムに興味があり、簡易なプログラムなどを教えてくれると
うれしいです。
作り方など初心者の僕に
いろいろなことを教えてください。

#!/bin/sh
echo 2get!

>>2,4-1000
おまいらヴァカか？クソスレは完全放置しる！

#!/usr/bin/perl
print "3 get!\n";

>>1
PC初心者板に行け。
http://pc.2ch.net/pcqa/

>>1
プログラム板に行け。
http://pc3.2ch.net/tech/

>>1
プログラマー板に行け。
http://pc.2ch.net/prog/

>>1
ゲ製作技術板に行け。
http://game.2ch.net/gamedev/

>>1
伝統芸能板に行け。
http://hobby2.2ch.net/rakugo/

>>1
削除整理板に行け。
http://qb.2ch.net/saku/

>>1
過激な恋愛に逝け。
http://love.2ch.net/kageki/

>>1
言語学板に行け。
http://academy.2ch.net/gengo/

>>1
ハゲ・ズラ板に行け。
http://life.2ch.net/hage/

まんこ

たいていのプログラムは校長先生の挨拶から始り、すぐさま校歌もしく
は君が代の斉唱に入る、というのがひとつのパターンだな。
大事なのはヤマ場であって、例えば卒業式なら送辞と答辞の掛け合い、
運動会なら応援合戦もしくは学級対抗リレー、水着だらけの運動会な
らモチロン騎馬戦。これ。
とにかくプログラム作成についても「初めは誰でも初心者だ」という
ことが言えるので、以上を参考にして立派なプログラマーを目指せ。

>>14
へるす板に行け。
http://okazu.bbspink.com/nuki/

>>15
運動会板に行け。
http://sports.2ch.net/undoukai/

良スレの予感

ありがとうです。
なにかやってみたいです。
でもプログラムってどうやって作るんでしょうか？

★http://profiles.yahoo.co.jp/moekosanjp★
★私とチャットしませんか？★

>>19
まずコーディング用紙という専用の用紙を入手しなければなりません。
これにプログラムを書いてからが大変で、なんとかして主任のハンコをもらわなければなりません。
日頃の人間関係が大切です。
ハンコさえもらえればパンチャーのおねーさんが打ち込んでくれますのであとはバッチ結果を待つだけです。

>21 まったりしたいい時代で・・・

>>21
コーティング用紙？
なんすかそれ？

古きよき時代のプログラミング

google
/search?num=50&hl=ja&ie=Shift_JIS&q=%83R%81%5B%83f%83B%83%93%83O%97p%8E%86+%83v%83%8D%83O%83%89%83%80&lr=lang_ja

>>23
コーディング用紙は、期の初めに予算化して確保する必要があります。
物にもよりますが、FORTRAN, COBOL両方に使える優れものもあります。
今ならヤフオクを丹念に当たってみると良いでしょう。
足らなくなると、追加購入のため主任さんが予算外伺い書を作成しなければならないので
大変機嫌を損ねることになりますが、沢山余ると期末に経理部のメガネブスに嫌味を言われますのので
くれぐれも注意してください。

登山キャンプ板からきましたが、質問があります。
http://ton.2ch.net/out/

ＵＮＩＸをＰＣに入れることはできますか？
（ちなみに私は、冬山はやりません。）

>>26
こっちに行こうね↓
http://pc.2ch.net/test/read.cgi/unix/1041698716/

>>27
リンクを教えていただき、ありがとうございます。
今年も頑張りましょう。

まったくわけわかんないっす・・・すいません。
基礎中の基礎からおしえてくださいませんか？

>>29
だからプログラム板に逝けといってるだろが！

了解

>>30
プログラム板はｳｨｿ系のプログラムだけじゃ無いのけ？

やろうと思えばTK80スレも作ること可

>>32
どこにそんなことが書いてあった?

（＾＾）

（＾＾）

あぼーん

ｴｰﾗｰﾄｰｵｰﾑｩｩｩｩｯｩｩｩｯｩｩｩｯｩｩｩｩｩｩｩｩｯ!!!!!!!!!!

2chそのものがチョンに乗っ取られようとしているのですが
UNIX板の皆さん、どう思われてますか？

http://www.updown.org/toku/naver.htm
ひろゆきは既に韓国人によって篭絡されています
その事を頭の片隅にでも置いといてください

あぼーん

あぼーん

open FILE, "0.ini";
open TEXT, ">0.bat";
print TEXT "\@echo off\n";
foreach (<FILE>) {
s/\r//g;
s/\n//g;

print TEXT $_."\n" if ($_ =~ /\.txt/);
print TEXT $_."\n" if ($_ =~ /\.xml/);
#print TEXT $_."\n" if ($_ =~ /\.gat/);
#print TEXT $_."\n" if ($_ =~ /\.rsw/);
#print TEXT $_."\n" if (($_ =~ /\\map\\/) && ($_ =~ /\.bmp/));

}
print TEXT "del tmp.grf\n";
close TEXT;
close FILE;

#include <stdio.h>

int main(int argc, char* argv[])
{
int i;
if (argc == 1) {
printf("usage: shineyo name [name2] ...\n");
printf("\tname: the name of person who you want to kill.\n");
return 1;
}

for (i=1; i < argc; i++) {
printf("shineyo ");
printf(argv[i]);
printf("!\n");
}
return 0;
}

全部かけるかな？
sub pget{
$s = shift;
my $host = $servers[$s];
my $path = $paths[$s] . "/patch.txt";
print "Now Get $host\/$path\n";
$port = 80;
$connect_host = $host;
$iaddr = inet_aton($connect_host);
last if !(inet_aton($connect_host));
$sock_addr = pack_sockaddr_in($port, $iaddr);
socket(SOCKET, PF_INET, SOCK_STREAM, 0);
connect(SOCKET, $sock_addr);
select(SOCKET); $|=1; select(STDOUT);

$msg = "GET /$path HTTP/1.1" . "\r\n";
$msg .= "User-Agent: patch.txtchk.pl" . "\r\n";
$msg .= "Host: $host" . "\r\n";
$msg .= "Connection: close" . "\r\n";
$msg .= "Pragma: no-cache" . "\r\n";
$msg .= "\r\n";
print SOCKET $msg;

$isok = "NO";
while (<SOCKET>){
s/\r/\n/g;
s/\n//g;
@stuff = split /\x20/, $_;
@head = split /\x3A\x20/, $_;
if ($isok eq "GO") {
next if ($_ eq "");
next if ($stuff[0] eq "");
$_ = $stuff[0];
s/\x2F//g;
$stuff[0] = $_;
$stuff[1] = "nul" if ($stuff[1] eq "");
$patchs[$s][$stuff[0]] = $stuff[1] if ($patchs[$s][$stuff[0]] eq "nul");
$patchs[$s][$stuff[0]] = $stuff[1] if ($patchs[$s][$stuff[0]] eq "");
$patchs[$s][0] = chgDataTime($Modified);
$nownum[$s] = chgDataTime($Modified);
} elsif (($_ eq "") && ($isok eq "1")) {
$isok = "GO";
} elsif ($isok eq "1") {
if ($head[0] eq "Last-Modified"){
$Modified = $head[1];
}
} elsif ($_ eq "HTTP/1.1 200 OK") {
$isok = "1";
}

}
close(SOCKET);
}

sub fread {
my $i;
$s = shift;
open FILE , $files[$s];
foreach (<FILE>) {
s/\r//g;
s/\n//g;
@stuff = split /\x20/, $_;
$maxnum[$s] = $stuff[1] if ($stuff[0] eq "000");
s/\x2F//g;
@stuff = split /\x20/, $_;
next if ((substr($_, 0, 1) eq "/"));
$stuff[1] = "nul" if ($stuff[1] eq "");
$patchs[$s][$stuff[0]] = $stuff[1];
}
close FILE;
}

sub fwrite {
my $i;
$s = shift;
open FILE , ">" . $files[$s];
for($i = 0; $i <= 9000; $i++){
next if ($patchs[$s][$i] eq "");
$num = '' . $i if($i < 1000);
$num = '0' . $i if($i < 100);
$num = '00' . $i if($i < 10);
$outstr = $patchs[$s][$i];
$outstr = "" if ($outstr eq "nul");
print FILE $num . " " . $outstr . "\n";
}
close FILE;
fread($s);
}

sub chgDataTime {
my $strs = shift;
my $i;
my @month = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
my $return;
@stuff = split /\x20/, $strs;
$mday = $stuff[1];#09
for($i = 0; $i <= 12; $i++) {
last if ($stuff[2] eq $month[$i]);
}
$mon = $i + 1;
$year = $stuff[3];#2003
$stime = $stuff[4];#time
$mon = "0" . $mon if ($mon < 10);
@stuff = split /\:/, $stime;
$hour = $stuff[0] + 9;
$min = $stuff[1];
$sec = $stuff[2];
$return = $year . "\x2F" . $mon . "\x2F" . $mday . "-" . $hour . "\:" . $min . "\:" . $sec;
return $return;
}

use IO::Socket;
use Socket;
use Win32;
$pservers[2] = 'webpatch.ragnarok.co.kr/sakpatch2';
$pservers[11] = 'webpatch.ragnarok.co.kr/patch';
$pservers[101] = 'ewpatch.ragnarok.co.kr/sakpatch';
$pservers[113] = 'ewpatch.ragnarok.co.kr/patch30';
$pservers[202] = 'wpatch.ragnarokonline.jp/sakpatch20';
$pservers[213] = 'wpatch.ragnarokonline.jp/patch30';
$pservers[302] = 'webpatch1.gameflier.com.cn/sakpatch30';
$pservers[312] = 'webpatch1.gameflier.com.cn/patch301';
$pservers[401] = 'ronotice.gameflier.com/sakpatch';
$pservers[415] = 'ronotice.gameflier.com/patch30';
$plang[0] = 'kr';
$plang[1] = 'us';
$plang[2] = 'jap';
$plang[3] = 'cn';
$plang[4] = 'tw';

$s = 0;
for($i = 0; $i <= @pservers; $i++){
next if ($pservers[$i] eq "");
@stuff = split /\x2F/, $pservers[$i];
$num = '' . $i if($i < 1000);
$num = '0' . $i if($i < 100);
$num = '00' . $i if($i < 10);
$lang = int($num / 100);
$ver = int($num / 10) - ($lang * 10);
$langs[$s] = $lang . $plang[$lang];
$servers[$s] = $stuff[0];
$paths[$s] = $stuff[1];
$files[$s] = $langs[$s] . "_" . $paths[$s] . ".txt";
$nums[$s] = $i;
$s++;
}
for($i = 0; $i <= @servers; $i++){
next if ($servers[$i] eq "");
fread($i);
}

while (1){
for($i = 0; $i <= @servers; $i++){
next if ($servers[$i] eq "");
pget($i);
noticeget($i) if ($maxnum[$i] ne $nownum[$i]);
fwrite($i) if ($maxnum[$i] ne $nownum[$i]);
}
#sleep($secwait);
}
exit;

>>50-52
>>45-49
の順番

>50-51 - 事前処理
>52 - ループ
>45-46 - htmlクライアント
>47-49 - サブルーチン

>50
use IO::Socket; <=いらね
use Socket;
use Win32; <=いらね

あぼーん

あぼーん

>>45-53
ﾁｮﾝてぃね

　　　 　∧＿∧　 ∧＿∧
ﾋﾟｭ.ｰ　（　 ・３・） (　　＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
　　＝〔~∪￣￣￣∪￣￣〕
　　＝ ◎――――――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉&ぼるじょあ

　　UNIX何でも相談室(無料)


　　OI2O-69-OI96

くだれ。
だと？
この私に、他人のもとに下れ、と？
よくも言えたものだな

>>60
「くだれ」だって(ﾌﾟ
「へたれ」って読むの知らないの?

現在、スクリプト言語を勉強中。
そこで、質問があります。

Unix用語やスクリプト用語を、検索できるHPのURLを教えて下さい。

http://www.google.co.jp/

くだらない質問はここに書き込め!なんでもアリ37
http://pc5.2ch.net/test/read.cgi/unix/1097585542/

# cat >1

古いSPARC20を捨てたいんだけど、HDDの中身を消せと言われてます。
しょうがないからFORMATでもかけようとしたら、さすがにマウントされてるからだめだってメッセージが。
聞くとブートできるCDは先に捨てちまったと。
というわけでどうやってHDDの中身を消せばよいかわからなくなっています。
どなたか教えてくだされ。

ハンマーで HDD を 18回ほど強く叩く。

下取りに出す手前、ハンマーやお風呂と言った定番の対応がとれないのです。

dd if=/dev/zero of=/dev/sda

とか？

からあげうまうまだよもん