В есть пример Java-How-to с использованием класса MessageDigest .
Посмотрите на этой странице примеры использования CRC32 и SHA-1.
import java.io.*;
import java.security.MessageDigest;
public class MD5Checksum {
public static byte[] createChecksum(String filename) throws Exception {
InputStream fis = new FileInputStream(filename);
byte[] buffer = new byte[1024];
MessageDigest complete = MessageDigest.getInstance("MD5");
int numRead;
do {
numRead = fis.read(buffer);
if (numRead > 0) {
complete.update(buffer, 0, numRead);
}
} while (numRead != -1);
fis.close();
return complete.digest();
}
// see this How-to for a faster way to convert
// a byte array to a HEX string
public static String getMD5Checksum(String filename) throws Exception {
byte[] b = createChecksum(filename);
String result = "";
for (int i=0; i < b.length; i++) {
result += Integer.toString( ( b[i] & 0xff ) + 0x100, 16).substring( 1 );
}
return result;
}
public static void main(String args[]) {
try {
System.out.println(getMD5Checksum("apache-tomcat-5.5.17.exe"));
// output :
// 0bb2827c5eacf570b6064e24e0e6653b
// ref :
// http://www.apache.org/dist/
// tomcat/tomcat-5/v5.5.17/bin
// /apache-tomcat-5.5.17.exe.MD5
// 0bb2827c5eacf570b6064e24e0e6653b *apache-tomcat-5.5.17.exe
}
catch (Exception e) {
e.printStackTrace();
}
}
}
error
предполагается такой же наблюдаемой, как бесконечный цикл. Вы можете поймать только error
в IO
, в котором я ## Heading ## ike говорю "да, вы можете, если вы знаете магию". Но из действительно хорошей части Haskell, чистого кода, это неустранимо, и поэтому настоятельно рекомендуется не использовать в своем коде, только столько, сколько вы когда-либо использовали бы бесконечный цикл в качестве кода ошибки .
ncurses хамит и заставляет вас творить магию, чтобы исправить это. Я бы сказал, unsafePerformIO
будет оправдано, чтобы очистить его. Кроме этого, это во многом совпадает с ответом Павла.
import qualified Control.Exception as Exc
{-# NOINLINE unsafeCleanup #-}
unsafeCleanup :: a -> Maybe a
unsafeCleanup x = unsafePerformIO $ Exc.catch (x `seq` return (Just x)) handler
where
handler exc = return Nothing `const` (exc :: Exc.ErrorCall)
Затем оберните unsafeCleanup
вокруг любого значения, которое может привести к ошибке, чтобы превратить его в Maybe
.
Это доступно в пакете spoon , если вы не хотите писать его самостоятельно (и не должны этого делать - код исключения может быть очень сложным, особенно при наличии потоков). ).