akirad akirad

A software engineer working in Japan.

akirad / calcCal.html

Created November 27, 2018 15:18

A html+js sample to calculate kcal by exercise.

	<!DOCTYPE html>
	<html>
	<head>
	<meta http-equiv="content-language" content="ja">
	<meta charset="UTF-8">
	<title>消費カロリー計算</title>

	<script>
	function calc() {
	var weight = document.getElementById('weight').value;

akirad / getMem.bat

Created September 14, 2018 05:52

	@echo off

	set pid=%1

	:loop
	set /p<nul=%date% %time%,
	tasklist /fo csv /fi "pid eq %pid%" /nh
	timeout 60 > nul

	goto :loop

akirad / sendtrap.pl

Last active August 12, 2018 15:56

Send trap perl script

akirad / findBOM.pl

Last active November 9, 2017 05:20

A perl script that finds BOM from the files under the directory specified.

	use strict;
	use warnings;

	my $dir = $ARGV[0];
	if((!$dir) or (! -d $dir)) {
	die "Need to specify a directory.";
	}

	my $isFound = 0;
	checkBomFrom($dir);

akirad / findStr.vbs

Last active May 31, 2023 03:10

A vbs script that finds files that contains the string specified from the directory.

	Option Explicit

	Dim objArgs
	Set objArgs = WScript.Arguments
	If objArgs.Count < 1 Then
	WScript.Echo("Specify a dir...")
	WScript.Quit (1)
	End If

	Dim strPattern

akirad / listFile.vbs

Last active November 11, 2017 00:29

A vbs script which lists files in the specified dir.

	Option Explicit

	Dim objArgs
	Set objArgs = WScript.Arguments

	If objArgs.Count = 1 Then
	Call listFile
	End If

	Sub listFile()

akirad / ChangeBinHex.java

Last active August 9, 2017 09:49

A sample program to change bin to hex and hex to bin.

	public class ChangeBinHex {
	public static void main(String[] args) {
	String str = "z";
	String hexStr = binToHexString(str.getBytes());
	System.out.println(hexStr); // 7a (0111 1100)

	byte[] bytes = hexStrToBin(hexStr);
	for (byte b : bytes) {
	System.out.print(b + " "); // 122 (0111 1010) : Ascii Code of "z"
	}

akirad / sendUdpData.java

Last active August 7, 2017 02:07

A Java program which sends udp data.

	// A sample to send a udp data.

	import java.io.BufferedReader;
	import java.io.FileReader;
	import java.io.IOException;
	import java.net.DatagramPacket;
	import java.net.DatagramSocket;
	import java.net.InetAddress;
	import java.net.UnknownHostException;
	import java.io.File;

akirad / findStr.pl

Last active July 31, 2016 09:55

A perl script which finds strings of file1(fromFile) against file2(toFile).

akirad / findNonExistStr.pl

Last active May 25, 2016 11:35

A perl script which finds strings which are in the $checkStrFile($ARGV[0]) but not in the $targetFile($ARGV[1]).

	use strict;
	use warnings;

	my $checkStrFile = $ARGV[0];
	my $targetFile = $ARGV[1];

	open(my $csFh, "< $checkStrFile") or die "Can't open $checkStrFile: $!";
	open(my $tgtFh, "< $targetFile") or die "Can't open $targetFile: $!";

	while (my $checkLine = <$csFh>) {